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