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