Named Captures %+

Instead of remembering numbers such as $1, Perl 5.10 lets us name the captures directly
in the regular expression. It saves the text it matches in the hash named %+: the key is
the label we used and the value is the part of the string that it matched. To label a match
variable, we use (?PATTERN) where we replace LABEL with our own names.* We
label the first capture  name1 and the second one  name2, and look in  $+{name1} and
$+{name2} to find their values:

use 5.010;
my $names = 'Fred or Barney';
if( $names =~ m/(?<name1>\w+) (and|or) (?<name2>\w+)/ ) {
    say "I saw $+{name1} and $+{name2}";
    }

Now we see the right message:
I saw Fred and Barney