Select Code to Download

my $defaults = {};
%defaults = map {(($_ =~ /([^\=]+)\=([^\s]+)/)?("$1" => "$2"):())} @AR
+GV;
print join(",", keys %defaults);

$_ =~ /([^\=]+)\=([^\s]+)/

$_ =~ /([^\=]+)\=([[^\s]|[\\\s]]+)/)

 $_ =~ /([^\=]+)\=([^[[^\\]\s]]+)/