print join "\n", unpack("A80" x (length($l) / 80 + 1), $l);