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

##</code><code>##

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

##</code><code>##

index($str, $text) >= 0