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

Do you mean this? /[^\w\s-]/

In Section Seekers of Perl Wisdom