$content =~ s!(\$r->vor(;\n)){2,}!"vor(". @{[split(/;\n/, $&)]} .")$2"!eg;