Assuming tools were available, I would think XML Schema would be a better fit than DTD for what you're trying to do. Unfortunately there's precious little schema support available for Perl right now. Sorry, I know that's not very helpful :-(