perl 正则问题求助

[suprich]

$_=~ s/(/W)/'%'.unpack("H2",$1)/ego

[fibbery]

至少(/W)应该改成(\W)，即：$_=~ s/(\W)/'%'.unpack("H2",$1)/ego

[suprich]

请问这个正则那里错了，运行的时候报下面的错误
Unmatched ( in regex; marked by <-- HERE in m/( <-- HERE / at ./grub_sos.pl line 17.

[fibbery]

应该就是我前面说的错误，你改正后再试一试。