Select Code to Download

    $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-u
+p
    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-u
+p
    print "$match<_$val> was val for $match<_$key>\n";  # hash look-up