$ perl -Mojo -MTie::Hash::NamedCapture -E '$_ = q{foo = bar};m{(?<name>\w+) \s* = \s* (?<value>.*) $}x; tie my %h, q{Tie::Hash::NamedCapture}; say r(\%h)'
{
  "name" => "foo",
  "value" => "bar"
}