Dringend: Simples Perl-Script funktionniert nicht

[Chris Weber]

Hallo,

ich habe gerade versucht mit dem Script:

open FILE, "<datei.txt";
@liste = <FILE>;
close FILE;
for (@liste)
{
  if (!/besser/) { push @neueliste; }
}
open FILE, ">datei.txt";
for (@neueliste)
{
  print FILE "$_\n";
}
close FILE;

eine bestimmte Zeile aus der Datei datei.txt zu loeschen, aber nach dem Aufruf des Scripts ist die Datei leer.  Wie kann das sein.  Sollte nicht die Zeile, die das Wort besser enthält geloescht sein ?

Danke