$string =~ s/(\$r->vor\;\n)+/vor\(ANZ\)\;\n/g;