Select Code to Download

use Data::Dumper;

...
my %dict = split m/\s+=\s+|\n+/, $input;

print Dumper \%dict;

$ perl test.pl 
$VAR1 = {
...
          'b' => '2',
          'd' => '4'
        };