my %seen=();
while(<>)
{
    chomp;
    foreach my $word ( grep /\w/, split )
    {
        $word =~ s/[. ,]*$//; # strip off punctuation, etc.
        $seen{$word}++;
    }
}

use Data::Dumper;
$Data::Dumper::Terse = 1;
print Dumper \%seen;