$stem = quotemeta $stem; if ($word =~ m/^$stem/) {blah;} [download]
-- Hofmator
In reply to Re: Escaping in regexes by Hofmator in thread Escaping in regexes by Basilides