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