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