if ( $pat =~ m/"/i )  {