Select Code to Download

use constant CHUNK => 8;

for (my $x = 0; $x < length($str) / CHUNK; ++$x) {
    print substr($str, $x * CHUNK, CHUNK), "\n";
}

print substr($str, $_ * CHUNK, CHUNK), "\n"
    for 0 .. length($str) / CHUNK;