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