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