#! /usr/local/bin/perl -w
use strict;
my $file = $ARGV[0];
open TEXT, "<$file";
my %frequency = ();
while ( my $line = <TEXT> ) {
    my(@words) = split /\W+/, $line ;
    foreach my $word ( @words ) {
	$frequency{$word}++;
    }
}
my @most;
my $cnt;
while (my ($word,$freq) = each %frequency ) {
    if (! @most) {
        push @most,$word;
	$cnt = $freq;
	next;
    }
    next if $cnt > $freq;
    if ($cnt == $freq) {
	push @most,$word;
    } else {
	@most = ($word);
	$cnt = $freq;
    }
}
if (@most == 0) {
    print "No words in $file\n";
} elsif (@most == 1) {
    print "'$most[0]' occurred $cnt times\n";
} else {
    print "The following words each appeared $cnt times\n@most\n";
}


##</code><code>##

---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';