use XML::LibXML qw( );

my $root = XML::LibXML->load_xml( IO => \*DATA )->documentElement;

for my $station ($root->findnodes('*')) {
   say $station->getName;
   for my $ip ($station->findnodes('ip')) {
      say "   ".$ip->textContent;
   }
}