Select Code to Download

use strict;

my $plainText = '123456781234567812';
my @piece = $plainText =~ /.{1,8}/g;

my $plainText = '123456781234567812';

...
$template .= 'a'.$rem if $rem;

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