#!/usr/bin/perl --

use strict;
use warnings;
use HTML::TreeBuilder;

my $html = <<'__HTML__';
<a href="http://www.yahoo.com" target=_blank><img
src="http://us.i1.yimg.com/nw.gif" 
alt="Open this result in new window">ANCHOR TEXT</a>

<a href="http://www.yahoo.com" target=_blank><img
src="http://us.i1.yimg.com/nw.gif" 
alt="Two clues for the price of one"></a>
__HTML__


{
  my $h = HTML::TreeBuilder->new_from_content($html);

  for my $link ( $h->look_down( _tag => q{a}, href => 'http://www.yaho
+o.com' ) )
  {
    print $link->attr('href'),"\n";
    my $text = $link->as_trimmed_text;
    unless ($text) {
      $text = join ' ',
        map { $_->attr('alt') } $link->look_down( alt => qr/^.+$/ );
    }
    print "$text\n\n";
  } ## end for my $link ( $h->look_down...)

}

__END__
[download]

The output is :

http://www.yahoo.com; ANCHOR TEXT

http://www.yahoo.com; Two clues for the price of one

http://www.yahoo.com; ANCHOR TEXT

http://www.yahoo.com; IMAGE (indicating no anchor text and also presence of img tag within anchor tag )

Any ideas?

You have just copied the code from Re^2: anchor text match literatim (except for some mild massaging of the input). What have you tried?

I also tried this:

use WWW::Mechanize();
my $mech = WWW::Mechanize->new();
my $html = $mech->get('http://umallvt.com/directory.php');
my @links=  $mech->find_all_links( text_regex => qr/a/i );

foreach(@links){
if($_->url() eq 'http://www.victoriassecret.com/'){
print "\n";
    print "url \n";
print $_->url(); 
print "\n";
    print " text\n";
    print $_->text();
    print "\n";
}

}
_END_
[download]

The out put is :

url: http://www.victoriassecret.com/

text: Victoria's Secret

In case the page had an anchor tag like below:

a href="http://www.victoriassecret.com/" target=_blank><img src=http://www.victoriassecret.com/nw.gif height=11 width=11 border=0 alt="Open this result in new window"> </anchor>

The above perl script would give :

url: http://www.victoriassecret.com/

text: Open this result in new window

But the desired result is:

url: http://www.victoriassecret.com/

text: IMAGE