perl -MList::Util=max -F'\n' -0777naE'$w=max map length,@F;say pack"(A$w)9 A*",splice @F,0,10 while @F;' Data.txt