Re^3: Nested greps w/ Perl

[kennethk]

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;

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.