Select Code to Download

use utf8;                    # Source code is encoded using UTF-8.
use open ':std', ':locale';  # Decode inputs and encode inputs.
...
   my @utf8 = unpack('C*', $utf8);
   push @chars, [ $char, $cp, $utf8, @utf8 ];
}

my $last = 0;
for (@chars) {
...
for my $i (3..$last) {
   say join '  ', map { defined($_->[$i]) ? sprintf '%08b', $_->[$i] :
+ (' 'x8) } @chars;
}