Come estrarre il contenuto testuale da un DTD SGML usando Perl?

Question

Sto cercando di estrarre tutti i contenuti da un DTD usando Perl, ma non sono sicuro di quale sia il modo migliore per farlo. So che ci sono moduli per lavorare con XML, ma non sono sicuro che ci siano per questo tipo di lavoro con SGML o se dovrei provare a creare un'espressione regolare per questo lavoro?

Sono nuovo in SGML e Perl e non avendo molta esperienza con Regex, ad eccezione della corrispondenza di pattern molto semplice.