perl -le"for (1..2) { print for grep scalar(??../D/), ('A'..'F'); rese +t}" [download]
In reply to Re^4: Flip-flop won't DWIM by Roy Johnson in thread Flip-flop won't DWIM by wu-lee