$ perl -lwe'$,=$\;print unpack("B*","A"), unpack("B*","a"), unpack"B*","A"^"a"'
01000001  <- "A": 64 + 1
01100001  <- "a": 64 + 32 + 1
00100000  <- result of XORing