open F, "human_hg19_circRNAs_putative_spliced_sequence.fa", or die $!;

my %seq = ();
my $id = '';

while (<F>){
	chomp;
	if ($_ =~ /^>(.+)/){
		$_ = $1;
	}else{
		$seq{$id} .= $_;
	}
}


my @seqarray;
my $maxlength = 150;
my $minlength = 100;

foreach $id (keys %seq){
	if ((length$seq{$id} <= $maxlength) || (length$seq{$id} >= $minlength)){
		@seqarray = ($id."\n",$seq{$id});
	}
}

print join ("\n", @seqarray);

close F;