use Data::Dumper;

my $data = do {local $/;<DATA>};
my $xml  = XMLin($data);

print Dumper $xml;