$x =~ s/'\s*:\s*'/' => '/g; my %hash = %{ eval "{$x}" };