$replacement = "Herzliches_Hallo";
$file = "$progverzeichnis/hypofix/appl.ini";
tie my @array,'Tie::File',$file or die $!;
for (@array){
   s/Hallo/$replacement/g;
 }