my $xml = XML::XPath->new( xml => $string); 
my $nodeset = $xml->findnodes('//entry'); 
foreach my $node ( $nodeset->get_nodelist){ 
print $node->findvalue('//title'),"\n"; 
}