if ($a =~ m/\Q$b\E/i) #### $b = quotemeta($b); if ($a =~ m/$b/i) #### if (lc($a) eq lc($b))