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