sub get_arg {
    shift =~ /\W([^=]+)/;
    $1;
}

my $reqid = get_arg(FCP_REQID=103806);  # returns 103806
my $login = get_arg(FCP_LOGIN="USER/PASS");  #returns "USER/PASS", desire USER/PASS