¿Cómo extraer contenido textual de un SGML DTD usando Perl?

Question

Estoy buscando extraer todo el contenido de un DTD usando Perl, pero no estoy seguro de cuál es la mejor manera de hacerlo. Sé que hay módulos para trabajar con XML, pero no estoy seguro de si hay alguno para este tipo de trabajo con SGML o si debería intentar crear una expresión regular para este trabajo.

Soy nuevo en SGML y Perl, además de no tener mucha experiencia con Regex, excepto por una coincidencia de patrones muy simple.