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