@results = $str =~ /\w+/g;