>echo a,b,c,d,e,f,g,h,i | perl -054pe"$.%3||s/,/\n/"
a,b,c
d,e,f
g,h,i