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