my $s = "hallo welt\n\n\n\n";
$s =~ s/\n+$//;
print $s;