Array nach Zeichen durchsuchen und ersetzen

[Skeeve]

  
open(FILEHANDLE, "<C:\datei.xml");  
  
@Zeilen = (""); # Damit legst Du aber schon in $Zeilen[0] einen Leerstring an  
my %entities= (  
    'lt' => '<',  
    'gt' => '>',  
    'auml' => 'ä',  
     #usw  
    'amp' => '&',  
);  
  
while(<FILEHANDLE>){  
    s/&([^;]+);/$entities{$1}/g;  
    push(@Zeilen,$_);  
}  

Besser ist es im Allgemeinen aber, Du verwendest ein Modul wie z.B. XML::Twig um Deine Datei zu parsen.