Actually, that doesn't, but this does:

 perl -lwe '$x = 0; print join " ", grep { scalar(!$x++../D/) } qw(A B
+ C D E F)'
 # prints:
 # A B C D
[download]