sub r{my$y=shift;@F,$y&&do{local@F[$y-1,-1-$y]=($")x2;&r},@F%2|$y?@F:()}print r 1,1,3..(@F=<>=~/./gs)/2-1