if (-e $file) { my $seqio = Bio::SeqIO->new( -format => "fasta", -file => $file ); while ( my $seq = $seqio->next_seq ) { my $secuencia = $seq->seq(); # Si la secuencia comienza con N if ($secuencia =~ m/^N/i ) { $secuencia =~ s/N//gi; # Quitar todas las N print OUT $seq->display_id() . "\n"; # Imprimir la cabecera print OUT $secuencia . "\n"; # Imprimir la secuencia } } }