my $x = ...
    my %hash = map { my $v = $_; $v =~ s/(^'|'$)//; $v} split /(:|, )/ $x;