if ($line =~ /\Q$string\E/) { ... }