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