if (($seq =~/\w{2}A\w{6}T\w{2}[ACT]\w[GCA{4}T{4}]{4}[AT]/) 
   && ($gcper >= 30 && $gcper <= 52))
     {
	print "$seq\t$seqpos\t$gcper\n";
     }