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