if ($word =~ $test) {
  my ($m_used, $m_allowed) = @{ $^R->[0] };
  my ($i_used, $i_allowed) = @{ $^R->[1] };
  my ($d_used, $d_allowed) = @{ $^R->[2] };
  print "Using $m_used mods, $i_used inserts, and $d_used dels, $word matched\n";
}