Hi format_c,

nein, das geht leider nicht, ich ja auch den Ersetzen-String in
einer Variablen haben möchte.
Vielleicht schweife ich einfach mal ein bischen aus.
Ich möchte eine subroutine schreiben, die in einer Datei nach Zeilen sucht und diese ersetzt. Dazu übergebe ich der subroutine einen Hash mit suchen=>ersetzen werten.
Es wird dann in jeder eingelesenen Datei-Zeile alle Hash suchen=>ersetzen paare angewendet.
Deshalb brauche genaugenommen folgendes:
   foreach $PMSearchString(keys(%PatMatchStr))
   {
     if($Line =~ s/$PMSearchString/$PatMatchStr{$PMSearchString}/g)
     {
       print $Line;
     }
   }

wobei Line die aktuelle Zeile der Datei und %PatMatchStr der suchen=>ersetzen Hash ist.

Gruß Ansgar