Select Code to Download

#!/usr/bin/perl

...

printf "data: %s\n", $data;                # AB
printf "bits: %s\n", join ', ', @bits;     # 1, 1, 0, 0, 1, 0, 1

# variant a) using floor()
use POSIX;
...

# variant b) using int
$data = pack 'b*', join q{}, splice @bits, 0, int(@bits / 8) * 8;