johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -E '
my @arr = split m{}, do {
   my $vec;
   vec( $vec, 0, 8 ) = 57;
   unpack q{b*}, $vec;
   };
say for @arr;'
1
0
0
1
1
1
0
0