$b = quotemeta($b);
if ($a =~ m/$b/i)