How about this to save testing every line

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

Cheers,

JohnGG