Help for this page
if ($a =~ m/\Q$b\E/i)
$b = quotemeta($b); if ($a =~ m/$b/i)
if (lc($a) eq lc($b))