Select Code to Download

    $s =~ s/\s+/=/g;
    my @v = split( /[\[\],]/, $s ); #create an array from string $s
...
    my %hash = map { split( /=/, $_, $x + 1 ) } @v; 
entry

my %reverse_phonebook = (
    123 => 'jack',
    456 => 'jill',
    ...
);