Dear All, I tried to incorporate the condition: no GC stretch more than 9 letters long, to the below code

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....;}
[download]

I was hoping to get some help regarding the regular expression and better writing of this code.

Thank you