perl -e 'chomp(@l=(<*>));open(FH,"<test.txt") or die;while(<FH>){for $w(@l){/\b$w\b/ ? print: next}}'