perl -le" print while glob '{A,B,C,D}'x4 "