>perl -le"@a = qw( a b c d e ); print map { $_%2 ? $a[$_] : () } 0..$#a;"
bd