while ($string =~ /([\w'-]+)/g) { ... }