my $re = quotemeta($text);
$str =~ /$re/