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