#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper qw(Dumper);

my $vector = '123456789';
my $bits = unpack 'b*', $vector;
my @bits = split //, $bits;

my @bytes;
while (@bits) {
    #my $byte = pack 'b8', join '', splice(@bits, 0, 8); # 1-byte (ascii)
    #my $byte = join '', splice(@bits, 0, 8); # 8-bit (bits)
    #my $byte = join '', splice(@bits, 0, 64); # 64-bit (bits)
    push @bytes, $byte;
}

print Dumper \@bytes;