Select Code to Download

use XML::Twig;
my $file = 'sample.xml';
...
print $species->next_sibling_text('Observed');
print "\n";
}

<?xml version="1.0" encoding="UTF-8"?>
<ExchangeSet xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xml
+ns="http:/
/www.ncbi.nlm.nih.gov/SNP/docsum" xsi:schemaLocation="http://www.ncbi.
+nlm.nih.go
...
CTGA</Seq5>
                <Observed>C/T</Observed> 
                <Seq3>AATTAGGAAGAGCTGGTACCTAAAATGAAAGATGCCCTTAAATTTCAG
+ATTCACAATTTT</Seq3>