split has a form for avoiding overspliting, you can give it a count of how many parts you want, see my first post.

@array = split / /, $string, 31;

OTOH, your array slice will fix my dropping the last item with pop foolishness...

--
$you = new YOU;
honk() if $you->love(perl)