匹配空格和数字的perl小程序

昨晚匹配负数，写了这样一个练习的程序：

my @a;
$a="5 4 -8 -1 -5 6 -6 -3 0 55 8 -9 5 -3 -6";
while ($a=~/\s+(-\d)\s+/g)
{
push @a,$1;
}
print "@a\n";

正则表达式：一个负号和一个一位数字前后，各有一个或多个空格。

输出结果：-8 -5 -6 -9 -3。

原因：最末尾的“-6”无法匹配出来。因为它后面没有“一个或多个”空格；

          -8后面的-1和-6后面的-3都没有匹配出来。因为这两个数字前面的一个空格被成功匹配了的、紧挨着它的、前面的负数给占用了。

就比如，——————"here""0"———————匹配到了“here”的位置，下次匹配，从紧挨着here的下一个位置"0"开始。

不容忽视的小问题哦！！