#        1         2         3
#234567890123456789012345678901234
grep{open F,$_;grep/$_[0]/,<F>}<*>