my @getoptions_args = keys %test;
my %opts = map { (my $o = $_) =~ s/[=:|\!].*$//; $o => $test{$_} } @getoptions_args;
GetOptions(\%opts, @getoptions_args);
%test = %opts;