Más Y Más

Más Y Más La Unión ##

##

#!/usr/bin/perl

use warnings;
use strict;

use XML::Simple;
use Data::Dumper;

undef $/;
open( FH, shift );

my $raw_file = ;

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

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

##

##

$VAR1 = {
          'artist' => "La Uni\x{f3}n",
          'title' => "M\x{e1}s Y M\x{e1}s"
        };