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