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

# 4316k;
$s = substr $s, 0, 999_000;

# 4316k;
$s .= '?' x 2000;

# 4316k;