#!/usr/bin/perl -l

use strict;
use warnings;
use Data::Dumper::Concise;
use Data::Serializer::Raw;
use XML::Simple qw(:strict);

my $file = '/root/Desktop/xml2.xml';
    
open my $xml, '<', $file or die $!;
binmode $xml, ":encoding(UTF-8)";

my $ref = XMLin(
    $xml,
    SuppressEmpty => undef,
    KeyAttr    => { set => 'name' },
    ForceArray => [ 'set' ],
    ContentKey => 'content',
);
    
my $xml_raw_serializer = Data::Serializer::Raw->new(
    serializer => 'XML::Dumper'
);
my $xml_data = $xml_raw_serializer->serialize($ref);
print Dumper($xml_raw_serializer->deserialize($xml_data));
close $xml;