Select Code to Download

  DB<34> 'ABCD' =~ /(?<a>\w)(?<b>\w)(?<c>\w)(?<d>\w)/; $h_matches = \%
+{^CAPTURE}; say Dumper $h_matches
$VAR1 = {
          'b' => 'B',
...
  DB<35> x $h_matches
0  HASH(0x2fa07f0)
     empty hash                # oh oh ...