[ 6:55:11.07] P:\test>perl -lne"BEGIN{$,=','} print+(split',',<>)[0..14] " data\25x500000.csv >junk [ 6:55:17.90] P:\test>