open (FILE, "userstab.txt") || die "Cannot open file.\n";
open (NEWFILE, ">results.txt") || die "Cannot find or open file for editing.\n";

my %count;

while (<FILE>) {
    if (m/zaps/i) {
        my $zapschool = (split(/\t/))[4];
        ++$count{$zapschool};
    }
}

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

close NEWFILE;
close FILE;
print "Done!\n";