my $parser = new XML::LibXML; my $tree = $parser->parse_file('935.xml'); my $root = $tree->getDocumentElement; my @devices = $root->findnodes('/SymCLI_ML/Symmetrix/Device/Dev_Info'); for my $device_id ( @devices ) { my $dev_name = $device_id->findnodes('./Dev_Name'); my $dev_conf = $device_id->findnodes('./configuration'); print $dev_name->to_literal, "\t", $dev_conf->to_literal, "\n"; }