正则匹配求助

[evel]

现在有这样一批数据：

1217832 RULE_EXPLORER DESIGN-TEAM This Part is a A-Group/Design need updated,don't check it firstly.
1217833 RULE_CHECK CHECKTEAM This Part is a A-Group/Design need check

请问我的匹配中，

$line=~ /(^[0-9]+)\s+([A-Z0-9_]*)\s+([A-Z]+[-]*[A-Z0-9_\/]*)\s+(.+\n$)/)

前面几个应该没什么问题，但最后第四部分的描述信息怎么匹配不到呢？
大伙帮忙看看，谢谢！

[bugs2k]

#!/usr/bin/perl

while (<DATA>) {
    /(\d+)\s+([A-Z0-9_]+)\s+([A-Z-]+)\s+(.*)/;
    print join(";\t", $1, $2, $3, $4), "\n";
}

__DATA__
217832  RULE_EXPLORER       DESIGN-TEAM       This Part is a A-Group/Design need updated,don't check it firstly.
1217833 RULE_CHECK          CHECKTEAM         This Part is a A-Group/Design need check

[iasky]

这个最好awk来吧，方便快捷。