perl -lne 'BEGIN{<>} print join q{,}, (split m{,})[0 .. 3];' file1 > file2