#!/usr/bin/perl -w


#open the fastfile Genes.fasta
open (GENES, "Genes.fasta") or die "Could not open file";
chomp (@seq = <GENES>);
$seq = join ("\n", @seq);

$lengthseq = length $seq;

#min length of the seq
$minlength = 10;

#if length is over a certain size, print
if ($lengthseq > $minlength){
	print $seq;
	}
else {print "No sequence is over $minlength;"
}