my %setting = map /^--(.*?)=(.*)$/, @ARGV; #### my %file = map { $_ => /^([^=-]*)$/ ) } @ARGV; my %switch = map { $_ => /^--([^=]*)$/ } @ARGV;