there are assembly level instructions that can do that with multiple instructions involving various kinds of masks and shifts but, that would be a wild thing to do. I think this is even more difficult to do in Perl.

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
[download]

Not really. This is Perl after all :)