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