#!/usr/bin/perl
#
use strict;
use warnings;
use Data::Dumper;
use Net::DNS;

my $domain = ".e164.org";
my $number = join('.',(reverse(split(//,"18604850042")))) . $domain;

print "$number\n";

my $res = Net::DNS::Resolver->new(
        nameservers => ['e164.org'],
        recurse => 0,
        debug => 0,
);

my $NAPTR = $res->query($number,'NAPTR');

print Dumper($NAPTR);
print "*** " . $NAPTR->{'answer'}->[1]->{'regexp'} . "\n";