use strict;
use warnings;

use XML::Simple;

my $filename = "sample_file.xml";

my $xs = XML::Simple->new(keeproot=>1,
                          forcearray=>1);

my $xmlString;
{
  $/++;
  $xmlString = <DATA>;
}

my $data_hr = $xs->XMLin($xmlString);
my $resultXMLString = $xs->XMLout($data_hr);

print "$resultXMLString\n";
##
## RESULT: 
##
##<a>
##  <FOOFOOFOOFOO>
##    <m>foofoo  44444</m>
##    <pm>barbarbar222</pm>
##    <mfg someid="2345">xyzzy</mfg>
##    <r>nn23v</r>
##    <s>555</s>
##  </FOOFOOFOOFOO>
##</a>
##
##
##
__DATA__
<a id="FOOFOOFOOFOO">
  <s>555</s>
  <m>foofoo  44444</m>
  <pm>barbarbar222</pm>
  <r>nn23v</r>
  <mfg someid='2345'>xyzzy</mfg>
</a>