Select Code to Download

use XML::Simple;
$xml = new XML::Simple;
my $data = XMLin($xmlresult);

print Dumper($data);

$VAR1 = {
          'xmlns:s' => 'http://schemas.xmlsoap.org/soap/envelope/',
          's:Header' => {
...
                                          }
                    }
        };