use strict;
use warnings;
use Bio::SeqIO;

# Reading the fasta file
my $seqio_obj = Bio::SeqIO->new(-file => "Genes.fasta", 
                             -format => "fasta" );

# Looping through sequences and printing them unless length <= 10     
+                        
while ( my $seq_obj = $seqio_obj->next_seq ) {
    print $seq_obj->seq,"\n" unless $seq_obj->length <= 10;
}
# The output should be : "GGAGGTCTTTAGCTTTAGGGAAACCC".
[download]