use Data::Dumper;
use XML::LibXML;

my $xml = q|
<Publisher>
    <UniqueDOI>978-3-642-123456</UniqueDOI>
    <ChapterInfo ChapterType="OriginalPaper">
        <Title Language="En">Is Light Blue (<Emphasis Type="Italic">azzurro</Emphasis>) Color Name Universal in the Italian Language?</Title>
    </ChapterInfo>
</Publisher>
|;

my $doc = XML::LibXML->load_xml(string => $xml);
my @Publishers = $doc->findnodes('//Publisher');

for my $Publisher ( @Publishers ) {
    my ($ChapterInfo) = $Publisher->findnodes('ChapterInfo');
    my ($Title)       = $ChapterInfo->findnodes('Title');
    
    # get the Title node as literal XML
    my $content = $Title->toString();
    print "Title content:\n$content\n";
    
    # remove first and last XML tags
    $content =~ s/^<[^>]*>(.*)<[^>]*>$/$1/;
    
    # construct the hash reference
    my $hash = {
        UniqueDOI    => $Publisher->findvalue('UniqueDOI'),
        ChapterInfo  => {
            ChapterType  => $ChapterInfo->getAttribute('ChapterType'),
            Title        => {
                Language    => $Title->getAttribute('Language'),
                content     => $content,
            },
        },
    };
    print Dumper($hash);
}

##</code><code>##

Title content:
<Title Language="En">Is Light Blue (<Emphasis Type="Italic">azzurro</Emphasis>) Color Name Universal in the Italian Language?</Title>

$VAR1 = {
    'UniqueDOI' => '978-3-642-123456',
    'ChapterInfo' => {
        'ChapterType' => 'OriginalPaper'
        'Title' => {
            'Language' => 'En',
            'content' => 'Is Light Blue (<Emphasis Type="Italic">azzurro</Emphasis>) Color Name Universal in the Italian Language?'
        },
    },
};