print join("\n", unpack("(A60)*", $string)"