use XML::LibXML;
my $parser = XML::LibXML->new();
my $doc = $parser->parse_file('yahoo.xml');
my @images;
for my $node ($doc->findnodes('/ysearchresponse/resultset_web/result/url')) {
   my $source = $node->getValue;
   push @images, $source;
   print $source;
}