if ($string1 =~ /\Q$string2\E/){...}
if (index($string1, $string2) != -1){...}