You might want to look at XML::Twig for something that looks similar to what you're trying to accomplish.