$string =~ s/\n*$/\n/;