foreach(@KOPFLINES){
  $_ =~ s/_ERSETZEN_/Dies ist ein Test/g;
  print $_;
}