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