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

which gives me a total of 34, as i couldnt think of a better way to get the value into ARGV =[