Help for this page
print if /\Q$pattern\E/;
my $search_str = $1; ... print if /\Q$search_str/;
my $pattern = quotemeta($1); # aka "\Q$1" ... print if /$pattern/;