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

##</code><code>##

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