Select Code to Download

my %data =
    map split(/=/, $_, 2),
...

print "$_ is $data{$_}\n"
    for keys %data;

my %data = /([^=\s]+)=(\S*)/g;

...
    for
        grep /^[abc]\z/,
        keys %data;