I would parse the input line into a hash table. Add code to test the keys to see what kind of situation that you are in.

if (defined ($parms{username}) and defined($parms{password}) )
   { print "username and password case\n";}
[download]

etc....

use strict;
use warnings;
use Data::Dump qw(pp);


while (defined (my $line =<DATA>))
{
   chomp $line;
   next unless $line =~ /\S/;  #skip blank lines
   
   my %parms = $line =~ /--(\w+)\s+([\w.-]+)/g;
   
   pp \%parms;

}

=output
{
  password => "abc123",
  server   => "api.blr-ocp1.lab.rbbn.com",
  username => "mgore",
}
{
  server => "api.blr-ocp1.lab.rbbn.com",
  token  => "kfjshdssahdvkbvjkbj",
}
=cut

__DATA__
1. --server api.blr-ocp1.lab.rbbn.com --username mgore --password abc1
+23
2. --server api.blr-ocp1.lab.rbbn.com --token kfjshdssahdvkbvjkbj
[download]