Select Code to Download

print if /\Q$pattern\E/;

my $search_str = $1;
...
print if /\Q$search_str/;

my $pattern = quotemeta($1);  # aka "\Q$1"
...
print if /$pattern/;