my $word_count = scalar(my @words = split(' ', $string));