How can I remove all tokens with non-word characters in Perl?

Question

I am trying to come up with a regex for removing all words that contain non-word characters.

So if it contains a colon, comma, number, bracket etc then remove it from the line, not just the character but the word. I have this so far.

$wordline = s/\s.*\W.*?\s//g;

Does not have to be perfect so removing strings with dash and apostrophe is ok.

Answer 1

$wordline = join(" ", grep(/^\w+$/, split(/\s+/, $wordline)));