Select Code to Download

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

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

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