or use index.

index($str, $substr) >= 0
[download]

is equivalent to

$str =~ /\Q$substr\E/
[download]

and

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