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

##</code><code>##

#        1         2         3
#2345678901234567890123456789012
grep{@ARGV=$_;grep/$_[0]/,<>}<*>