C:\>perl -lne "BEGIN{$,=','} print+(split',',$_)[0..14] " > junk