$string =~ s/(.+)/$1\n/;