Re^3: Nested greps w/ Perl

The problem is largely driven by memory footprint. If you instead run

open my $C_LOC, '<', $C_LOCATIONS_FILE;
while (<$C_LOC>) {
    chomp;
    $count += /\Q$SEARCH_TERM\E/ && /Z/
}
close $C_LOC;
[download]

you should see a substantial reduction in time. In order to substantially speed it up past this, you need to avoid readline's buffering, at which point you can implement Matching in huge files.

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

Comment on Re^3: Nested greps w/ Perl Download Code