oops. And I thought I got it short.

use strict;
use warnings;

my $num_of_skip = 2;
my $skip        = 0;

my @Array   = ('AAA','BB','CCCC','DD','EEEEE','FFF','GGGG');
my @Skipped = grep {$skip-- if $skip; $skip = $num_of_skip + 1 if !$sk
+ip and length($_) == 2; !$skip; } @Array;

print "original: @Array\n";
print "wanted:   AAA EEEEE FFF GGGG\n";
print "output:   @Skipped\n";
[download]

so,

grep{$skip--if$skip;$skip=3if!$skip&&length($_)==2;!$skip;}@_ #61 char
+s
[download]