Select Code to Download

<?xml version='1.0' encoding='UTF-8'?>
<SOAP-ENV:Envelope 
...
</ns1:VHIResponse>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>

<FCSDServicesResponse country="USA" language="ENG" marketid="1">
<Status desc="Web service status OK" id="VI2000"/>
...
</Vehicle>
</Vehicles>
</FCSDServicesResponse>

# use module
use XML::Simple;
...

# print output
print Dumper($data);

$VAR1 = {
          'country' => 'USA',
...
                      },
          'marketid' => '1'
        };