http://www.perlmonks.org?node_id=6103


⭐ in reply to How do I escape meta-characters in a user-defined string?

if($string=~/\Q$key\E/){

[download]
Quotes the metacharacters.

In Section Seekers of Perl Wisdom