if ($str =~ /\Q$pat/) { ... }
if ($str =~ /.\Q$pat\E./) { ... }