ebd2abff-7c52-49ec-a7f3-7714dd3934ec look_again.blogspot.com/ B00006D9SV 14 Successebd2abff-7c52-49ec-a7f3-7714dd3934ec 77708.blogspot.com/ B00006D9SV 14 Successebd2abff-7c52-49ec-a7f3-7714dd3934ec ddig.blogspot.com/ B000JFQRGM 834337 Successebd2abff-7c52-49ec-a7f3-7714dd3934ec blog66137.blogspot.com/ B00006D9SV 14 Successebd2abff-7c52-49ec-a7f3-7714dd3934ec webhostingservice-ka.blogspot.com/ B00006D9SV 14 Success ##

##

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


##

##

my $string = $status->toString