# 3336k;
$s = ' ' x 1_000_000;

# 4320;
$t = substr $s, 0, 999_999;

# 5308k;