perl -F, -lane'print join ",", @x while @x = splice @F, 0, 3'