while ($string =~ /((\w|')+)/g) {

##</code><code>##

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

##</code><code>##

while ($string =~ /((\S)+)/g) {...do something...}