Have a look at Net::Whois::RIPE::Object. You need something like $query->nic_hdl (from the POD). I suspect that if your run your script in the debugger and enter 'x $line' you'll see what you need.