Help for this page
> 22 GATTGATGCC... > 2 GATGGATGTG... > 26 GATGCATGAT... > 52 GATGATGTGG...
while (my $line=<$in>) { if($line=~/^>/) { ... print $out "$vettore[1]\n"; } }