Select Code to Download

print join ' ', unpack '(a10)*', "$_\n" for unpack '(a50)*', $str;

print "" . join ' ', unpack '(a10)*', $_ . "\n" for unpack '(a50)*', $
+str;

for ($str =~ /.{1,50}/g) {print join " ", /.{1,10}/g; print "\n"}