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