Select Code to Download

use strict;
use warnings;
...
print "original: @Array\n";
print "wanted:   AAA EEEEE FFF GGGG\n";
print "output:   @Skipped\n";

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