#!/usr/bin/perl -- 

use strict;
use warnings;

my $response_xml = <<'__RESPONSE__';
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" x
+mlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schema
+s.xmlsoap.org/soap/envelope/">
  <soap:Body>
    <get_ManufacturerListResponse xmlns="http://webservice.isolda.se/S
+tandard">
      <get_ManufacturerListResult>
        <StatusID>int</StatusID>
        <StatusMessage>string</StatusMessage>
        <InputString>string</InputString>
        <Results>int</Results>
        <Generated>dateTime</Generated>
        <Manufacturers>
          <Manufacturer ManufacturerCode="HP" />
          <Manufacturer ManufacturerCode="Lexmark" />
        </Manufacturers>
      </get_ManufacturerListResult>
    </get_ManufacturerListResponse>
  </soap:Body>
</soap:Envelope>

__RESPONSE__

for($response_xml){
    s/^s*//;
    s/\s*$//;
}

use XML::Simple;
use Data::Dumper;
$Data::Dumper::Indent=1;

print Dumper( XMLin( $response_xml )), $/,'----',$/;

use SOAP::Lite;
my $d = SOAP::Custom::XML::Deserializer->deserialize( $response_xml );
print $d->valueof('/Envelope/Body'),  $/,'----',$/;

print 'statusid ', $d->valueof('//get_ManufacturerListResult/StatusID'
+),  $/,'----',$/;

print $d->dataof('//get_ManufacturerListResult/Manufacturers/Manufactu
+rer')->attr->{'ManufacturerCode'};
print  $/,'----',$/;
for my $t ($d->valueof('//get_ManufacturerListResult/Manufacturers/Man
+ufacturer' ) ){
    print $t->attr->{'ManufacturerCode'};
#    print Dumper( $t );
}
__END__

$VAR1 = {
  'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance',
  'soap:Body' => {
    'get_ManufacturerListResponse' => {
      'xmlns' => 'http://webservice.isolda.se/Standard',
      'get_ManufacturerListResult' => {
        'StatusID' => 'int',
        'Manufacturers' => {
          'Manufacturer' => [
            {
              'ManufacturerCode' => 'HP'
            },
            {
              'ManufacturerCode' => 'Lexmark'
            }
          ]
        },
        'InputString' => 'string',
        'Results' => 'int',
        'StatusMessage' => 'string',
        'Generated' => 'dateTime'
      }
    }
  },
  'xmlns:xsd' => 'http://www.w3.org/2001/XMLSchema',
  'xmlns:soap' => 'http://schemas.xmlsoap.org/soap/envelope/'
};

----
int
----
statusid int
----
HP
----
HPLexmark
[download]

Note that the first regex in the loop

for($response_xml){
    s/^s*//;
    s/\s*$//;
}
[download]

should be

    s/^\s*//;
[download]

Or better yet, both regexes should perhaps be

    s/^\s+//;
    s/\s+$//;
[download]

since there is little point in replacing zero whitespace with nothing.

Thank you, you saved my day:-)
(It worked after changing


for my $t ($d->valueof('//get_ManufacturerListResult/Manufacturers/Man
+ufacturer' ) )
[download]

to


for my $t ($d->dataof('//get_ManufacturerListResult/Manufacturers/Manu
+facturer' ) )
[download]

)