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