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