use XML::XPath;
use XML::XPath::XMLParser;

my $usr_string = "depTar/name";
my $xml = "<depTar><name>c_p20</name><loc>srvr1</loc></depTar>";

my $xp = XML::XPath->new(xml => $xml);
my $nodeset = $xp->find($usr_string);

foreach my $node ($nodeset->get_nodelist) {
        print $node->string_value(), "\n";
}
[download]