$window=79;
$i=-1;
$str="X" x 723;

substr($str,$i,0)="\n" while (($i+=$window+1) < length($str));

print $str;