my $unpacked_string = unpack qq{b$len}, $packed_string;