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