Select Code to Download

<?xml version="1.0"?>
<aws:UrlInfoResponse xmlns:aws="http://alexa.amazonaws.com/doc/2005-10
+-05/"><aws:Response xmlns:aws="http://awis.amazonaws.com/doc/2005-07-
+11"><aws:OperationRequest><aws:RequestId>ebd2abff-7c52-49ec-a7f3-7714
+dd3934ec</aws:RequestId></aws:OperationRequest><aws:UrlInfoResult><aw
+s:Alexa>
...
    <aws:Rank>14</aws:Rank>
  </aws:TrafficData>
</aws:Alexa></aws:UrlInfoResult><aws:ResponseStatus xmlns:aws="http://
+alexa.amazonaws.com/doc/2005-10-05/"><aws:StatusCode>Success</aws:Sta
+tusCode></aws:ResponseStatus></aws:Response></aws:UrlInfoResponse>

my $output = $response->content;
my $xp = XML::XPath->new(xml => $output);
...
for my $i (0..$nnodes-1) {
     my $status = $nodeset[$i]->findvalue('/aws:ResponseStatus/aws:Sta
+tusCode');
}

my $string = $status->toString