#!/usr/bin/env perl -l

use strict;
use warnings;
use autodie;

my ($min, $max) = (10, 15);
my $re = qr{(?x: ^ > ( .+ ) $ )};
my (%seq, $id);

{   
    open my $fh, '<', 'pm_1190090.fa';

    while (<$fh>) {
        if (/$re/) {
            $id = $1; 
        }   
        else {
            next if exists $seq{$id} and $seq{$id} eq '';
            chomp;
            $seq{$id} .= $_;
            $seq{$id} = '' if length $seq{$id} > $max;
        }   
    }   
}   

delete @seq{grep { length $seq{$_} < $min } keys %seq};
    
print "$_: $seq{$_}" for sort keys %seq;