my $wordcount = $text =~ /\w+/g;