#!/usr/bin/perl -w
use strict;
use XML::Simple;
use Data::Dumper;

my $content = XMLin(qq|
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
 <soapenv:Header>
  <responseTime soapenv:actor="http://schemas.xmlsoap.org/soap/actor/next" soapenv:mustUnderstand="0" xmlns="https://adwords.google.com/api/adwords/v5">124</responseTime>
  <operations soapenv:actor="http://schemas.xmlsoap.org/soap/actor/next" soapenv:mustUnderstand="0" xmlns="https://adwords.google.com/api/adwords/v5">1</operations>
  <units soapenv:actor="http://schemas.xmlsoap.org/soap/actor/next" soapenv:mustUnderstand="0" xmlns="https://adwords.google.com/api/adwords/v5">25</units>
  <requestId soapenv:actor="http://schemas.xmlsoap.org/soap/actor/next" soapenv:mustUnderstand="0" xmlns="https://adwords.google.com/api/adwords/v5">123</requestId>
 </soapenv:Header>
 <soapenv:Body>
  <getKeywordVariationsResponse xmlns="https://adwords.google.com/api/adwords/v5">
   <getKeywordVariationsReturn>
    <moreSpecific>
     <text>web content managment</text>
     <language>en</language>
     <advertiserCompetitionScale>3</advertiserCompetitionScale>
     <searchVolumeScale>1</searchVolumeScale>
    </moreSpecific>
    <moreSpecific>
     <text>web based content management</text>
     <language>en</language>
     <advertiserCompetitionScale>5</advertiserCompetitionScale>
     <searchVolumeScale>1</searchVolumeScale>
    </moreSpecific>
    <additionalToConsider>
     <text>3.14</text>
     <language>en</language>
     <advertiserCompetitionScale>3</advertiserCompetitionScale>
     <searchVolumeScale>2</searchVolumeScale>
    </additionalToConsider>
    <additionalToConsider>
     <text>babinet's</text>
     <language>en</language>
     <advertiserCompetitionScale>2</advertiserCompetitionScale>
     <searchVolumeScale>0</searchVolumeScale>
    </additionalToConsider>
   </getKeywordVariationsReturn>
  </getKeywordVariationsResponse>
 </soapenv:Body>
</soapenv:Envelope>
|);

print "... $content->{'soapenv:Envelope'}{'soapenv:Body'}{'getKeywordVariationsResponse'}{'getKeywordVariationsReturn'}{'moreSpecific'}[0]->{'text'} ...\n";
#print Dumper(\$content);

##</code><code>##

Use of uninitialized value in concatenation (.) or string at xmlparser.pl line 54.