if ($str2 =~ /\Q$str1\E/) #\Q...\E means like qr
                           #don't interpret characters
                           #like '(' within $str1
                           #use them verbatim