$ perl -wE 'say grep {state $t ^= 1} qw[a b c d]' ac $ [download]
In reply to Re^2: Mini-Tutorial: Working with Odd/Even Elements by JavaFan in thread Mini-Tutorial: Working with Odd/Even Elements by ikegami