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