Select Code to Download

$_ = join ' ', @ARGV;

my %defaults;
$defaults{$1} = $2 while /([^\=]+)\=(\S+)/g;

my %defaults = ();
my ($k,$v);
...
      $defaults{$k} += " $v";
   }
}