[D]Perl 正则表达式,该如何处理

[D]Perl 正则表达式
s/\s+(!\w+)/$1/这句是怎么把 huge (huge !)dinosaur 替换为 huge (huge!) dinosaur的

---------------------------
Double行动：
原帖分数：20
帖子加分：20

[解决办法]
貌似那个正则表达式应该没法匹配，所以也就无法替换；如果要替换，貌似下面这个可以：

Perl code

s/\s+(!\w*)/$1/
[解决办法]
探讨


貌似那个正则表达式应该没法匹配，所以也就无法替换；如果要替换，貌似下面这个可以：

Perl code
s/\s+(!\w*)/$1/