perl -MData::Dumper -le'$_="a = 1, b = 2"; my %h = /(\S+) = (\d+)/g; print Dumper \%h'
$VAR1 = {
          'a' => '1',
          'b' => '2'
        };