Textteile ersetzen

[Struppi]

Habe ich da was falsch verstanden?

Probier's mal so

  
open FH, '<file1' or die "could not open file1 for reading: $!";  
while(<FH>)  
{  
 last if /^#REPLACE/;  # wenn aktuelle Zeile damit beginnt, Schleife  
 push @file1, $_;      # aktuelle Zeile anhängen  
}  

Struppi.