>perl -le"$t=0; print grep { $t^=1 } qw( a b c d e );" ace