#!/usr/bin/env perl

use strict;
use warnings;

use constant MIN_LENGTH => 10;

my $long_seqs = 0;

{
    local $/ = '>';

    while (<DATA>) {
        next if $. == 1;
        my $seq = (split /\n/)[1];
        next if MIN_LENGTH > length $seq;
        ++$long_seqs;
        print $seq, "\n";
    }
}

if (not $long_seqs) {
    print 'No sequence is over ', MIN_LENGTH-1, "\n";
}

__DATA__
>NM_001 Homo sapiens ADA2 (CECR1)
GATCCAA
>NM_002 Homo sapiens IKBKG
GGAGGTCTTTAGCTTTAGGGAAACCC
> sequence length = 9 -- should be discarded
ABCDEFGHI
> sequence length = 10 -- should be kept
ABCDEFGHIJ
> sequence length = 11 -- should be kept
ABCDEFGHIJK

##</code><code>##

$ ./pm_11113575_fasta_extract.pl
GGAGGTCTTTAGCTTTAGGGAAACCC
ABCDEFGHIJ
ABCDEFGHIJK

##</code><code>##

$ ./pm_11113575_fasta_extract.pl
No sequence is over 99