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