[Vienna-pm] Zeilenumbruch ersetzen

[Fabio Valeri]

Hallo Karl-Heinz, Stefan, Josef,

Besten Dank an Euch alle für die prompte Antwort. Das (\n statt "\n") 
war ein grober Fehler von mir, ich hatte es einfach übersehen. Nun habe 
ich die folgende Version versucht

$/ = "\r\n";
while (<INPUT>) {
    chomp(my $row = $_);
    $row =~ s/\n/xxx/g;
    print OUTPUT "$row<tr>\n";
}

Als Output erhalte ich nun:

**********************************
dom1;extra1xxxz0001;sdf1xxxdom2;extra2xxxz0002;sdf2xxxdom3;extra3xxxz0002;sdf3<tr>
**********************************

D.h., es wird alles aneinandergereiht, obwohl Zeilenumbruch (\n) 
vorhanden ist. Das ist doch seltsam.
Mein Ziel ist
*********************
dom1;extra1xxxz0001;sdf1
dom2;extra2xxxz0002;sdf2
dom3;extra3xxxz0002;sdf3
**********************
zu erhalten.

@Josef: Ich würde gerne Module verwenden, aber mir scheint das nicht so 
trivial zu sein. Sobald ich mehr Zeit habe, werde ich mal diese 
Alternvative versuchen.

Besten Dank und Gruss

Fabio