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

##</code><code>##

(my $login = get_arg(FCP_LOGIN="USER/PASS") =~ tr/\"//d;

__DATA__
FCP_REQID=103806
FCP_LOGIN="USER/PASS"
FCP_USERID=3944 
FCP_PRINTER="noprint"