if(($seq =~/\w{2}A\w{6}T\w{2}[ACT]\w[GCA{4}T{4}]{4}[AT]/)
   && ( $seq !~ /[GC]{9}/) 
   && ( $gcper >= 30 && $gcper <= 52))
{ Do something....;}