if (m/zaps/i) {
        @zapschool = split (/\t/);
        print NEWFILE "$zapschool[4]\n";        
    }

##</code><code>##

C:\>perl -naF/\t/ -e "print qq($F[4]\n) if /zaps/" infile>outfile

##</code><code>##

C:\>perl -naF/\t/ -e "$hash{$F[4]}++ if /zaps/;END{print qq($_\t$hash{$_}\n) for sort keys %hash}" infile>outfile