Select Code to Download

 
use XML::Simple;
use Data::Dumper;
...
 </all>';
my $xhash = $xml->XMLin($body);
print Dumper($xhash);

$VAR1 = {
          'products' => {
...
                   } ]
           }
        };