Select Code to Download

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

0
123456789012345678901234567890123456789012345678901234567890

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

1234567890123456789012345678901234567890123456789012345678901234567890
123456789012345678901234567890123456789012345678901234567890

split /(?<=.{70})(.{70})/  # pos.look-behind for 70 chars, then captur
+e 70

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