#!/usr/bin/perl
use strict;
sub filegrep {
#         1         2         3         4         5
#12345678901234567890123456789012345678901234567890123456
 my$a=$_[0];grep{open F,$_;grep/$a/,<F>}(<*>)
}