#12345678901234567890123456789012345678901234567890123456
 my$a=$_[0];grep{open F,$_;grep/$a/,<F>}<*>