my @words = /\w+/g;

##</code><code>##

  my @words = /(\w+)/g;

##</code><code>##

  my @words = $string =~ /(\w+)/g;