>perl -le"for (1..2) { print for grep scalar(??../D/), ('A'..'F'); }"
A
B
C
D