Select Code to Download

        our $re
        local $re = qr{\[(?:(?>[^\[\]]+)|(??{$re}))*\]};
        for (;;) {
                last unless $tempstr =~ s/(\[\w+?\s*=\s*($re|\n|[^\[\]
+])+\])/assign($1)/gie;
        }