in reply to formatting strings

No claims on efficiency, but
print join("\n", unpack("(A60)*", $string)"
should do the trick. This also assumes a semi-recent perl (I think this feature came about sometime in 5.8).

thor

Feel the white light, the light within
Be your own disciple, fan the sparks of will
For all of us waiting, your kingdom will come