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

##</code><code>##

C:\>perl -lanF, -e "BEGIN{ $,=\",\"} print @F[0..14];" numbers.csv > junk