Select Code to Download

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

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

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