in reply to Escaping in regexes

If you want to escape any troublesome metacharacters, use the  \Q...\E quotes:
if ($word =~ m/^\Q$stem\E/) {blah;}

-Mark