$string =~ s/(.{1,$n})/$1\n/g;