Select Code to Download

use Data::Dumper;
print Dumper(\%INC);

for my $file (values %INC) {
    open my $fh, '<', $file;
...
        print "$file: $_" if /\bsub\s+greater\b/
    }
}