XML::Simple's interface is pretty odd in that it outputs something different than it takes in by default. (Maybe it could be even a little more simple - and more Perlish...?) But there's an option: 


ForceArray => 1 *# in - important*
    This option should be set to '1' to force nested elements to be
    represented as arrays even when there is only one.
...that you can use like so: 

use XML::Simple;

my $xml = XMLin(join('',<DATA>),ForceArray => 1);

print XMLout($xml);

__END__
<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>

[download]

...I think that it outputs something very similar to what you're looking for...

hth

In reply to Re: XML::Simple "transforming data" by Thelonious
in thread XML::Simple "transforming data" by Grundle

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.