Another one:

my $var = 'x' x 10000;
my $max_length = 100;

my $i = $max_length;
while ($i < length $var) {
    substr($var, $i, 0) = "\n";
    $i += $max_length + 1;
}

print $var, "\n";
[download]