print if /\Q$pattern\E/;

##</code><code>##

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

##</code><code>##

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