my $zeile = "Text ohne Umbruch";
$zeile .= "\n" if $zeile !~ m/\n$/;