use XML::XPath;

my $xp = XML::XPath->new(filename => '/path/to/file');

foreach ('IP-ADDRESS', 'IP-NEIGHBOUR') {
  foreach my $ip ($xp->findnodes("//$_")) {
    print $ip->findvalue('.'), "\n";
  }
}