$window=79;
$str="X" x 723;
print join "\n", unpack "A$window" x ((length($str)+$window-1)/$window), $str;