my $decode = unpack "b*",$compressed;

##</code><code>##

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