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

##</code><code>##

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