Select Code to Download

use strict;

...
}

my @files = filegrep('Match this!');

sub filegrep {

...
#12345678901234567890123456789012345678901234567890123456
 my@k;for(<*>){open F,$_;push@k,$_ if grep/$_[0]/,<F>};@k
}