//,print map($_&$'|0?" ":"::",@a),$/for@a=glob"{0,1,0}"x<>