$ perl -E 'say grep {++$i %2} <a b c d e f g>'
aceg
$ perl -E 'say grep {$i++ %2} <a b c d e f g>'
bdf