my $content = decode('UTF-8', 'tralala ' x 1E6);

my @a;
$#a = 10_000_000; # presize array
for (1..5)
{
    print "ITER $_\n";
    push @a, split m{(\p{Z}|\p{IsSpace}|\p{P})}ms, $content;
    procinfo();
}