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