my $munged_name = Regch($name);
$thing =~ /$munged_name/;

##</code><code>##

$thing =~ /\Q$name\E/i;

##</code><code>##

sub Regch {
   return "(?i:\Q$_[0]\E)";
}