if ($a =~ m/\Q$b\E/i)

##</code><code>##

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

##</code><code>##

if (lc($a) eq lc($b))