@a = 'a'..'u';;

$s = join ',', @a;;

$s =~ s[((?:,[^,]+){6}),][$1\n]g;;

print $s;;
a,b,c,d,e,f,g
h,i,j,k,l,m,n
o,p,q,r,s,t,u