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

The use of the  /g modifier is meaningless in this context, although it does no harm.