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_