http://qs1969.pair.com?node_id=441290

Grundle has asked for the wisdom of the Perl Monks concerning the following question:

I am currently parsing a relatively simple XML file with the following form with XML::Simple
<meta fpi="1234567890"> <isbn>1-234-56789-0</isbn> <edition>First</edition> <authorgroup> <author> <firstname>John</firstname> <surname>Smith</surname> <authorblurb url="http://www.someurl.com/etc/nothing.php"/> </author> </authorgroup> <pagenums>384</pagenums> <pubdate>October 2001</pubdate> <subjectset> <subject>some.lame.subject</subject> <subject>another.lame.subject</subject> </subjectset> <publisher> <publishername>Publisher Inc.</publishername> <imprintname>Publisher Inc.</imprintname> </publisher> ... </meta>
The problem I encounter is when I am done "parsing" and separating this data, I do an XMLout($data) but my new data looks like the following.
<imeta edition="First" fpi="0123456790" isbn="0-123-456789-0" msrp="39 +.95" pagenums="384" pubdate="October 2001"> <authorgroup name="author" firstname="John" surname="Smith"> <authorblurb url="http://www.someurl.com/etc/nothing.php" /> </authorgroup> ..
Notice how previous tags are now attribute identifiers. Is there a way for XML::Simple to preserve the exact XML structure of my original file when I call XMLout? I don't think it is too much to ask to have the same tags on output. Am I missing an option in XMLout?