for (my $pos = $window; $pos <= length($seq); $pos += $window+1) {
   substr($seq, $pos, 0, "\n");
}
[download]

is the least ugly I could come up with.