C:\test>copy con junk.csv
NAME|AGE|CITY|ZIP
AAA|23|STAT|60001
BBB|34|PPOR|12345
CCC|11|TRET|2345
^Z
        1 file(s) copied.

C:\test>perl -F"\|" -anle"print join'|', @F[ 0,2 ]" junk.csv
NAME|CITY
AAA|STAT
BBB|PPOR
CCC|TRET