große Files öffnen?

[Thomas Lachmann]

Ich möchte eine datei einlesen, und sie verändern.
Das ganze mach' ich zeilenweise...
In jeder Zeile nehme ich eine Reihe von Ersetzungen vor.
Meine Datei ist mehrere Mb (5, oder so) groß.
Das ergebnis dieser ersetzungen schreibe ich in eine neue Datei. ER schreibt allerdings nur bis zu einem gewissen Punkt und nicht weiter. Die Datei ist am Ende 10,1Kb groß

#!/usr/bin/perl

open(NEWDAT, ">newdat.txt");
print NEWDAT "Neue Datei\n";
close (NEWMAIL);

open(OLDDAT, "<olddat.txt");
while(<MAILDAT>)
{
  $_ =~  s/\HALLO\b/HALLIHALLO/g;
  open(NEWDAT, ">>newdat.txt");
  print NEWDAT $_;
  close(NEWDAT);
#  $Zeilen = $.;
}
close(OLDDAT);

tnx im voraus Thomas

PS: Vielen Dank Jörk, hat mir sehr geholfen.