sub filegrep
{
#         1         2         3
#1234567890123456789012345678901234
 map{@ARGV=($_);grep{/$_[0]/}<>}<*>
}