if ( $tag =~ m/<tagid=(\d*)([[:alpha:]]*)>/ ) {
      $tags{sprintf("%04d%6s",$1 || 999,$2)} = $tag;
    }
    else {
      warn "Failed to match: $tag"
    }