Select Code to Download

sub print_as_lines
{
  map { print "$_\n" } @_;
}

my $lanip = $server->{LanIP}; # no change on block entry
# oops, this will format for output before processing
$lanip .= "\n" unless $lanip =~ /\n$/; # no change if present
#oops, did not validate input

<lanIP>

192.168.42.7

</lanIP>

my $lanip = $server->{LanIP};
die "Value Error: not dotted quad notation->($lanip)" unless $lanip =~
+ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/;
my $lanip = $1; # now this house is clean

sub unique_network 
{
...
}

print_address( unique_network($servers) );