if ( $tag =~ m/<endnote id=/ ) {
      $tags{sprintf("%04d%6s",$1 || 999,$2)} = $tag;
    }
    else {
      warn "Failed to match: $tag"
    }