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