s!.!$&x2^"10"!eg for($_=0)x8;print