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

##</code><code>##

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