You want quotemeta() or \Q...\E:

$safe = quotemeta $unsafe;
$text =~ /$safe/;

# or

$text =~ /\Q$unsafe\E/;
[download]

japhy -- Perl and Regex Hacker