#!/usr/bin/perl -w
use strict;
use XML::Simple;

my $servers = XMLin('file.xml');
my %seen;
foreach my $server (@{$servers->{server}}) {
my $node =  $server->{Node} . "\n";
my $lanip = $server->{LanIP} . "\n";
my $mask = $server->{Netmask} . "\n";

substr($lanip, 11, 3) = "0";
push(my @array, $lanip) if ! $seen{$lanip}++;
print "@array\n";

##</code><code>##

192.169.30.0






192.169.31.0


192.169.32.0
192.169.72.0





##</code><code>##

192.169.30.0
192.169.31.0
192.169.32.0
192.169.72.0