use strict;
my @B;
my $len = 4096;
my $str = '........'; #langer String
while (length($str)>$len) {
    my $e = substr($str, 0, $len);
    substr($str,0,$len) = '';
    push(@B, $e);
}
push (@B, $str) if length($str);