用Perl对每个单词的字母计数

#!/usr/bin/perl
use strict;
use warnings;

my %count_of;
while (my $line = <>) { #read from file or STDIN
  foreach my $word (split /\\s+/gi, $line){
     $count_of{$word}++;
  }
}
print \"All words and their counts: \\n\";
for my $word (sort keys %count_of) {
  print \"$word: $count_of{$word}\\n\";
}
__END__

while (my $line = <>) {
    foreach my $word (split /\\s+/, $line) {
        $count_of{$word}{word_count}++;
        $count_of{$word}{word_length} = length($word);
    }
}

print \"All words and their counts and length: \\n\";
for my $word (sort keys %count_of) {
    print \"$word: $count_of{$word}{word_count} \";
    print \"Length of the word:$count_of{$word}{word_length}\\n\";
}

  print \"$word: $count_of{$word} \", length($word), \"\\n\";

length length($word)

$word =~ s/(\\w)/$1/g