my $plainText = '123456781234567812';

my $quo = length($plainText)/8;
my $rem = length($plainText)%8;

my $template = 'a8' x $quo;
$template .= 'a'.$rem if $rem;

my @piece = unpack($template,$plainText);