in reply to string length problems
$seq =~ s/(.{$window})/$1\n/g; [download]
for (my $pos = $window; $pos <= length($seq); $pos += $window+1) { substr($seq, $pos, 0, "\n"); } [download]