$str =~ s|(?:\$r->vor;?\n?){2,}|'vor('.scalar(@{[split(/;\n/,$&)]}).");\n"|esg;