Select Code to Download

    $r = $1 ? \$$r->{$1} : \$$r->[$2]
       while $string =~ /\G(?:\.?(\w+)|\[(\d+)\])/g;

    $r = $1 ? \$$r->{$1} : \$$r->[$2]
       while $string =~ /(\w+)|\[(\d+)/g;