怎么匹配这样一个CCAATT?

哦,这个啊,
这个和re 没关系,你要用while,不应该用if
$a="ACAATTTTTTCCAATTAAAAA";
while ($a=~/(C|.)CAATT/g) {
        print "$&\n";
}


output:

ACAATT
CCAATT
解决~~~

谢谢了~~~~~~·