This example from the documentation for HTML::TokeParser:

use HTML::TokeParser;
  $p = HTML::TokeParser->new(shift||"index.html");

  while (my $token = $p->get_tag("a")) {
      my $url = $token->[1]{href} || "-";
      my $text = $p->get_trimmed_text("/a");
      print "$url\t$text\n";
  }
[download]

And what it does is, "...extracts all links from a document. It will print one line for each link, containing the URL and the textual description between the <A>...</A> tags..."