Help for this page
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