my @words = /\w+/g;

##</code><code>##

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