use 5.010;

say grep { state $t = 1; $t ^= 1} <a b c d>;

# prints: bd