title: How can I remove all tokens with non-word characters in Perl?
body: <p>I am trying to come up with a regex for removing all words that contain non-word characters.</p>
  
  <p>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.</p>
  
  <pre><code>$wordline = s/\s.*\W.*?\s//g;
  </code></pre>
  
  <p>Does not have to be perfect so removing strings with dash and apostrophe is ok.</p>