G'day DEIVEEGARAJA,

This is PerlMonks! It is a forum for discussing and asking questions about Perl. It is not a free code writing service.

You have posted nothing that relates to Perl. The only thing I see that relates to any programming language is default.aspx (in two places). Perhaps you'd have better luck with an Active Server Page Extended forum.

If you genuinely have a Perl question, but perhaps just worded your posting poorly, you'll find guidelines for crafting a better question here: How do I post a question effectively?

open :F html 1.html ;
cd //text()[.="AAAAAA"] ;
ls ancestor::div[1] ;
[download]

use HTML::TokeParser;

my $p = HTML::TokeParser->new("webpage") 
    or die "Can't open webpage: $!\n";

while (my $token = $p->get_tag('a')) {
    my $link =$token->[1]{href};
    my $text = $p->get_trimmed_text('/a');

    say "Link: $link";
    say "Text: $text\n";
}
[download]

What have you already tried? Questions are better answered when supplemented with code.