else {
  my @text = extract_tagged($_, '<li>', '</li>', undef, undef);
  print "  *@text[4]*\n";
}