Named capture at work

• • if( 'foo bar baz'=~/(?<p>foo)\s*(?<q>bar)\s*(?<r>baz)/ ) {
  • print "Buffer '$_' is '$+{$_}'\n"
  • for keys(%+);
  • }