I don't think that -1 will work with $., better to use eof.

perl -lne"@A=split /,/; print join(q(,), @A[0 .. 3]) if 2 .. eof" temp
+.txt
[download]