Select Code to Download

use HTML::TokeParser;
  $p = HTML::TokeParser->new(shift||"index.html");
...
      my $text = $p->get_trimmed_text("/a");
      print "$url\t$text\n";
  }