Select Code to Download

> 22 GATTGATGCC...
> 2  GATGGATGTG...
> 26 GATGCATGAT...
> 52 GATGATGTGG...

while (my $line=<$in>) { 
    if($line=~/^>/) {     
...
        print $out "$vettore[1]\n"; 
    } 
}