$ perl -F, -lane '@F % 2 and push @D, [@F] or push @{$D[-1]}, pop @F; }{ $,=q{,}; print @{$_} for @D' input.txt