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