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