C:\>perl -e"print grep {++$a % 2}  qw{a 1 b 2 c 3}"
abc