my @bits = split(//, unpack("b*", $compressed));