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