perl -ne 'BEGIN {$p = shift} print if /$p/' PATTERN files ...

##</code><code>##

grep PATTERN files ...