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