use warnings;
use strict;

use HTML::TreeBuilder::XPath;

my $str = q{<a href ='some\\where'><img src='apple.gif'></img></a>
            <a href ='some\\where'>not an img</img></a>
            <a href ='some\\where'><img src='apple.gif'></img> and text</a>
           };
my $root = HTML::TreeBuilder->new_from_content($str);

foreach my $tag ($root->findnodes( '//a[./img]'))
  { print "link: ", $tag->as_HTML; }

##</code><code>##

foreach my $url ($root->findnodes( '//a/img/@src'))
  { print "link: ", $url->getValue, "\n"; }