while (<DATA>) {
    print $_;
    /="?([^"]+)"?/;
    print $1,"\n";
}
__DATA__
FCP_REQID=103806
FCP_LOGIN="USER/PASS"
FCP_USERID=3944
FCP_PRINTER="noprint"