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