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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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