my %script_opts = ();

GetOptions("foo=s" => sub { if ($_[1] =~ /^([^-]).*$/) {
    $script_opts{$_[0]} = $_[1];}  }
);