just for the sake of completeness ... quotemeta

$stem = quotemeta $stem;
if ($word =~ m/^$stem/) {blah;}
[download]

-- Hofmator