$match = m/complex pattern/; # match object in $match m/complex pattern>; # match object in $0 #### print "$match[1] was val for $match[0]\n"; my ($key,$val) = (0,1); print "$match[$val] was val for $match[$key]\n"; #### print "$match{val} was val for $match{key}\n"; my ($key,$val) = ("key", "val"); print "$match{$val} was val for $match{$key}\n"; #### print "$match<0> was val for $match<1>\n"; # array look-up print "$match<'val'> was val for $match<'key'>\n"; # hash look-up print "$match<$val> was val for $match<$key>\n"; # ??? #### print "$match<$val> was val for $match<$key>\n"; # ??? print "$match<+$val> was val for $match<+$key>\n"; # array look-up print "$match<_$val> was val for $match<_$key>\n"; # hash look-up