Re^3: how to Insert a newline character in a sentence

update: Or, to insert newlines at the 10th position and avoid double spacing lines of 9 characters, perhaps this

use strict;
use warnings;
while (<DATA>) {
    my $var=$_;
    $var=~s/(.{9})/$1\n/;
    print "$var";
}

__DATA__
dgbjhdghjdfgjhd
dfgjdjfghjkdhgdfg
dgbhgdfjgjhgdfgdfg
ghgjgglhkdjghkdhgk
[download]

Comment on Re^3: how to Insert a newline character in a sentence Download Code