在Perl中,如何从字符串中优雅地拆分成对的单词?

在Perl中,我有一个字符串大致如下

my $str = "one  10 two   20   three    30";

现在,我想把这个字符串分成单词-数字对,但是 没有成功。

我想我可以

my @pairs = split /([a-z]+[^a-z]+)/, $str;

然后就会

$pairs[0] eq 'one  10 '
$pairs[1] eq 'two   20   '
$pairs[2] eq 'three    30'

但是,我得到

$pairs[0] eq ' '
$pairs[1] eq 'one  10 '
$pairs[2] eq ' '
$pairs[3] eq 'two   20   '
$pairs[4] eq ' '
$pairs[5] eq 'three    30'

现在,我可以使用grep来获得我想要的结果:

my @pairs = grep {$_ =~ /\S/} split /([a-z]+[^a-z]+)/, $str;

但我想知道是否有更优雅的方法来解决这个问题。