Substitute in einer Datei

[BadBrain]

Hallo Foris,

ich möchte gerne in einer Datei einen Text durch nichts ersetzen.

Ich verwende dazu folgenden Code:

open (FILE, ">>$file") || die "unable to write $file!!!!!\n";
   while (<FILE>) {
          s/</BODY></HTML>//g;
   }
close (FILE);

Kann mir jemand sagen, wieso das nicht funktioniert.