my $len = 4096;
my $stringLength = length($string);

my $count = int($stringLength/$len);
my $pattern = ("A$len " x $count) . " A*";
my @B = unpack($pattern, $stringLength);