Select Code to Download

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

  %x = ( a => 'n', b => 'o', ...);

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