use XML::XPath; use XML::XPath::XMLParser; my $usr_string = "depTar/name"; my $xml = "c_p20srvr1"; my $xp = XML::XPath->new(xml => $xml); my $nodeset = $xp->find($usr_string); foreach my $node ($nodeset->get_nodelist) { print $node->string_value(), "\n"; }