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