#! perl use strict; use warnings; use Data::Dump; use XML::Twig; my $twig = XML::Twig->new ( twig_roots => { 'Body/QueryXmlResponse/QueryXmlResult/queryResult/data/row' => \&get_data, } ); my %data; $twig->parse(\*DATA); dd \%data; sub get_data { my ($twig, $row) = @_; $data{ $_->tag } = $_->text for $row->children; $twig->purge; } __DATA__ Extra Subnet 255.255.248.0 192.168.221.0 http://www.w3.org/2001/XMLSchema-instance http://schemas.solarwinds.com/2007/08/informationservice