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