my @Array  = ('AAA','BB','CCCC','DD','EEEEE','FFF','GGGG');
(/^..$/...$_)||print for@Array;
__END__
AAAFFFGGGG
[download]

But according to the OP, it should not exclude the 'EEEEE'. Your solution excludes the entry that has 2 characters, and the next one (or rather, until the next one that is true). The result of your program will change if you replace 'CCCC' with '0', or 'DD' with 'DDD'.