{print "$_\n" if /\Q$pattern/;