Zeilen löschen

[Christian Bliß]

Hallo,

wie kann ich bestimmte Zeilen aus einer txt-Datei löschen?
So weit bin ich schon:

open(LISTE, "<$root/liste.txt") or die "$!";
  my @lines = <LISTE>;
  while (<LISTE>) {
    push @lines, $_;
  }
  foreach (@lines) {
    ($liste_name, $liste_email) = split(/##/, $_);
    open(ANZEIGELISTE, ">>$root/liste_anzeige.txt") or die "$!";
      print ANZEIGELISTE "$liste_name##$liste_email\n";
    close(ANZEIGELISTE);
  }
close(LISTE);

Nun will, sobald die 2 Variablen in die neue Datei liste_anzeige.txt geschrieben wurden, in der liste.txt diese Zeile löschen. Wie mach ich das? Muss ich das '<' vor $root in '>' oder '>>' ändern?

MfG Christian Bliß