my $datei2 = $ARGV[1];

open (OUT, ">$datei2");

while(<>) {
    
    if (/(##)([KYRILLIISCHE ZEICHENa-zA-Z0-9"-]+(\s+[KYRILLISCHE ZEICHENa-zA-Z0-9"-]+)*)(##)/) {
        print OUT "$2\n";
    }
}

close OUT;