my @words= $string =~ /(\w+(?:'\w+)*)/g;

##</code><code>##

my @words= $string =~ /(\w+(?:[-']\w+)*)/g;