#! perl -slw
use strict;
use Data::Dump qw[ pp ];
use XML::Simple;

my $xml = XMLin( \*DATA, ForceArray => [ 'ip' ], NoAttr => 1 );
pp $xml;

__DATA__
<servers>
    <station18>
        <ip>10.0.0.101</ip>
        <ip>10.0.1.101</ip>
        <ip>10.0.0.102</ip>
        <ip>10.0.0.103</ip>
        <ip>10.0.1.103</ip>
    </station18>
    <station19>
        <ip>10.0.0.111</ip>
        <ip>10.0.1.111</ip>
        <ip>10.0.0.112</ip>
        <ip>10.0.0.113</ip>
        <ip>10.0.1.113</ip>
    </station19>
    <station17>
        <ip assignment="temporary">10.0.0.101</ip>
        <ip>10.0.0.121</ip>
    </station17>
</servers>