in reply to How can I make it to a one liner
perl -F, -lane'print join ",", @x while @x = splice @F, 0, 3' [download]