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