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