Select Code to Download

<?xml version="1.0" encoding="UTF-8"?>
<recordings type="array">
...
    <id type="integer">34719228</id>
  </recording>
</recordings>

my $xml = XML::XPath->new (xml => $res->decoded_content);
my $nodeset = $xml->find ("/recordings/recording");
...
      my $body   = $recording->find ("body")->string_value ();
      # Do something with id and body here
  }