$ perl -le '$s="1234567890"x20;@s=split(/(.){70}/,$s);
   print length($s);print scalar @s;print join("\n",@s)'
200
5

0

0
123456789012345678901234567890123456789012345678901234567890