Re^2: Pattern matching and setting the match to a variable

THat worked perfectly!

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

Thanks to all who replied.

Comment on Re^2: Pattern matching and setting the match to a variable Download Code