if ($word =~ m/^$stem/) {blah;}