Have you tried looking at $ex? And I should tell you now, you meant to be doing:

join '|', map quotemeta($_), keys %stuff;
# or
join '|', map "\Q$_\E", keys %stuff;  # \E not needed
[download]

japhy -- Perl and Regex Hacker