Comment extraire le contenu textuel à partir d'un DTD SGML à l'aide de Perl?

Question

Je cherche à extraire tout le contenu d'un DTD en utilisant Perl, mais je ne sais pas quelle est la meilleure façon de procéder. Je sais qu'il existe des modules pour travailler avec XML, mais je ne sais pas s'il y en a pour ce type de travail avec SGML ou si je devrais essayer de créer une expression régulière pour ce travail?

Je suis nouveau sur SGML et Perl et ne pas avoir beaucoup d'expérience avec Regex, sauf pour une correspondance de motifs très simple.