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