XML::Rules will provide an easy way forward. Using the DTD or a few examples it can infer rules that'll instruct the parser to produce data structure equivalent to a well set XML::Simple and at the same time allow you to start tweaking and trimming the structure to better fit your needs.