Select Code to Download

use Data::Dumper;

...
my $xml  = XMLin($data);

print Dumper $xml;

use strict;
use warnings;
...
<genes>
<gene id = "3" label = "gene_of_interest" />
</genes>