Help for this page
sub byte_align_decode { my $bytes = shift; ... print join(' ', byte_align_decode("\x06\xb8\x85\x0d\x0c\xb1")), "\n"; # emits: 824 5 214577
sub byte_align_encode { my $bytes = pack("w*", @_); $bytes ^= "\x80" x length($bytes); }