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

##</code><code>##

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