Hey, This is great! Thank you, and thanks to all the other folks who responded. I did this based on the code:

open (FILE, "userstab.txt") || die "Cannot open file.\n";
open (NEWFILE, ">results.txt") || die "Cannot find or open file for ed
+iting.\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";
[download]

WooHoo!