index($str, $substr) >= 0

##</code><code>##

$str =~ /\Q$substr\E/

##</code><code>##

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