## Being lazy and using the Mojo "ojo" oneliner for it's dumper r() $ perl -Mojo -MEnglish -E '$_ = q{foo = bar};m{(?\w+) \s* = \s* (?.*) $}x; say r(\%{^CAPTURE})' { "name" => "foo", "value" => "bar" } #### $ perl -Mojo -MTie::Hash::NamedCapture -E '$_ = q{foo = bar};m{(?\w+) \s* = \s* (?.*) $}x; tie my %h, q{Tie::Hash::NamedCapture}; say r(\%h)' { "name" => "foo", "value" => "bar" }