You are the holiest Monk of them all. At lest of those that responded. :) davido's and mifflin's suggestions probably would have worked, but it was much easier to just change my code to:

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

That worked like a charm.