Help for this page

Select Code to Download

Select or download this

local $/ = undef;
$_ = <MY_FILE>;
my %hash = ();
$hash{$_}++ foreach split /[^\w']+/; # Change $_ to lc if case matters