if (/<a href\=\"/) {
  my @link = extract_tagged($_, '<li><a href="', '">', undef, undef);
  print "  @link[4]\n";
}