open (OUT, ">$datei2"); while(<>) { s/##([KYRILLISCHE ZEICHENa-zA-Z0-9"-]+(\s+ [KYRILLISCHE ZEICHENa-zA-Z0-9"-]+)*)##//g; print OUT "$1\n"; } close OUT;