my $w = new Net::XWhois( Server => 'whois.int');

$w->register_parser (
    Name => 'PDEF',
    Retain => 0,
    Parser => {
        name            => 'Domain:\s+(\S+)\n',
        dnsname         => 'DNS\s+(\S+)\n',
        nameservers     => '(?:Nameservers[^\n]*\n.*?)*(?>Hostname:\s+([\S]+)\n)',
        registrant      => '(?:[rR]egistrant)[^\n]*\n([\n\s\S]*?)[\n\r\f]{2}',
        status          => 'Status:\s+(.*?)\n',
        remarks         => '(DNSSEC:.*?)\n',
        reg_date        => '[rR]egistered:\s+(.*?)\n',
        reg_period      => '[rR]egist.*?[pP]eriod:\s+(.*?)\n',
        exp_date        => '[eE]xpires\s+(.*?)\n',
    },
);

$w->register_association (
    'whois.int' => [ PDEF, [ qw/int/ ] ]
);

$w->lookup ( Domain => '--show-handles --charset=utf-8 '."myDomain.int" );