use strict;

my $maxcount;
my $find;
my $file;
my %hash;
my $count;

while (<>) {
  while (/([a-zA-Z'\-]+)/g) {
    my $word = $1;
    $count = ++$hash{lc $word};
    if ($count > $maxcount) {
      $find = $word;
      $maxcount = $count;
    }
  }
}

my $numwords = keys %hash;
print "distinct words: $numwords\n";
print "frequency of most common word: $maxcount\n";
print "common word: $find";

__END__
output of perl script.pl script.pl
==================================
distinct words: 25
frequency of most common word: 7
common word: my