http://www.perlmonks.org?node_id=630424


in reply to Pre-grow a string

my $str = "";
vec($str, 2**19-1, 8)=0;
$str = "";

[download]

In Section Seekers of Perl Wisdom