if( $str1 =~ m/\Q$str2/gi ) { ...