$_ = join ' ', @ARGV; my %defaults; $defaults{$1} = $2 while /([^\=]+)\=(\S+)/g;