(/^..$/...$_)||print for@Array # 30 chars, with named array
[download]

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'.

Please, recheck your code - it is skipping more elements.

Another 31 chars:

print split' ..( \S+){3}',"@_"
[download]

28, using the @_ instead of @Array (otherwise 32):

($.=/^..$/...2)||print for@_
[download]

Save another char by changing ... to .., but you get a warning.

---

Caution: Contents may have been coded under pressure.

1. The array is called @Array, not @_.
2. Modifying an array you're looping over isn't well defined.
3. It will attempt to skip over 2 elements for all strings less than 3 characters, not just strings of exactly 2 characters.

my @Array   = ('AAA','BB','CCCC','DD','EEEEE','FFF','GGGG');
my @Skipped = split' ..( \S+){3}',"@Array";

print "@Skipped"

__END__

STDOUT: AAA  EEEEE  FFF GGGG

Right?
[download]

That would fail if the strings contain spaces.