$x =~ s/['\s+]//g;
my %hash = split /[:,]/, $x;

##</code><code>##

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