Problem mit der "join"-Funktion

[Rolf]

----------cut----------

open(IN, "<test.txt");
@liste = <IN>;
close(IN);

$ergebnis = join ' ', @liste;
print $ergebnis;

----------cut----------

Hallo Chris, hallo kaepten, stimmt: die Zeilenumbrüche müssen raus. Und das geht so:
---
open (IN, "<test.txt");
while(<IN>){
chomp ($_);
push (@zeilen, $_);
}
---

Viele Grüße, Rolf