$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