DB<34> 'ABCD' =~ /(?<a>\w)(?<b>\w)(?<c>\w)(?<d>\w)/; $h_matches = \%{^CAPTURE}; say Dumper $h_matches
$VAR1 = {
          'b' => 'B',
          'c' => 'C',
          'a' => 'A',
          'd' => 'D'
        };


  DB<35> x $h_matches
0  HASH(0x2fa07f0)
     empty hash                # oh oh ...