in reply to Exclude some non-word char from Regexp \W

kyle and jethro are right, and their answer is IMHO the best. But timtowtdi, so here's another way to do it: 
m/(?![ -])\W)/

[download]

In Section Seekers of Perl Wisdom