my @charBits = split(//, unpack("b8", $temp));