#!/usr/bin/perl

use warnings;
use strict;

use Encode qw( is_utf8 );
use XML::Simple;
use Data::Dumper;

my $raw_file = do { local $/; <> };

my $xml = XMLin( $raw_file, forcearray => [], suppressempty => undef, );

print Dumper ( $xml );
print is_utf8 $xml->{'artist'};
print "\n";