Select Code to Download

use strict;
use warnings;
...
$/ = \10000; # blocksize
$total_filtered += tr/0/0/ while <$cgs>;
print "Found $total_filtered zeroes.\n";