Select Code to Download

while (<FILE>) {
    @zapschool = split (/\t/);
...
        print NEWFILE "$zapschool[4]\n";        
    }
}

while (<FILE>) {
    if (m/zaps/i) {
...
        print NEWFILE "$zapschool[4]\n";        
    }
}

while (<FILE>) {
    if (m/zaps/i) {
...
        print NEWFILE "$zapschool\n";        
    }
}

my %count;

...
foreach (keys(%count)) {
   print NEWFILE "$_: $count{$_}\n";        
}