perl -lwe'$true=1; print for grep $true../D/, qw(A B C D E F)'

##</code><code>##

perl -lwe'my @a=qw(A B C D E F); print for grep ($_==1) .. ($a[$_]=~/D/), 0..$#a'

##</code><code>##

perl -lwe'for (qw( A B C D E F )) { print; last if /D/ }'