Select Code to Download

use XML::Twig;
my $outfile = 'extra.snp';
open my $out,'>',$outfile or die "Could not open file '$outfile' $!";
...
        my ($twig, $elt) = @_;
        print $out substr($elt->text, 0,30), "\t";
    }

<?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
...
TTTCTTAGTATAAGCATGTCCCATGTAATATCTGGGATATACTCATACCTTTAAAAATGTGCTCATTGTT
+TATCTGAAAT
TCACATTTTAACAGGGAACCATTGTTTTGTTATTGTTTATTGTTTTGTTTCTAAATAA</Seq3>
        </Sequence>