# OS reports memory use 3336k my $s = ' ' x 1_000_000; # OS reports memory use 4320k $s = substr $s, 0, 999_999; # OS continues to report 4320k