Select Code to Download

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

my $data = XMLin($xml, ForceArray => 1);
print Dumper($data);