use strict;
use warnings;

use XML::Simple qw( );

my $xml = <<'__EOI__';
<doc>
    <Last>Smith</Last>
    <First>First</First>
</doc>
__EOI__

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

print(
   $xs->XMLout(
      $xs->XMLin($xml)
   )
);

##</code><code>##

<opt>
  <First>First</First>
  <Last>Smith</Last>
</opt>