if ( $tag =~ m/<endnote id=((\d*)([[:alpha:]]*))>/ ) {