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