my @fragen;

open (OUT, ">$datei2") or die $!;
while (<>) {
     push @fragen, /##([KYRILLISCHE ZEICHENa-zA-Z0-9"-]+(?:\s+[KYRILLISCHE ZEICHENa-zA-Z0-9"-]+)*)##/g;
}
close OUT or warn $!;

for my $q (@fragen) {
     print "Gefunden: [$q]\n";
}