{
  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
[download]

{
  local @_ = ('AAA','BB','CCCC','DD','EEEEE','FFF','GGGG');
  local $_ = 0;
  while ( $_ <= $#_ ){
    length($_[$_]) == 2 and $_+=3;
    print+($_[$_],$/)   and $_++
  }
}

__END__

AAA
EEEEE
FFF
GGGG
[download]