in reply to How to divide single string across multiple lines?
Another way would be to use unpack.
print "$_\n" for unpack '(A60)*', $str; [download]
I hope this is helpful.
Cheers,
JohnGG