{
  local @_ = ('AAA','BB','CCCC','DD','EEEEE','FFF','GGGG');
  local $_ = 0;
  for ( $_..$#_ ){
    length($_[$_])    == 2 and next;
    length($_[$_-1])  == 2 and next;
    print $_[$_],$/
  }
}

__END__

AAA
FFF
GGGG