#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper qw( Dumper );

my $string = "Hello World!\n  Oh poor Yorick, his world I knew well yes I did";

my @words = split( /\W+/, $string);

my %count;
foreach my $word ( @words ) {
    $count{lc($word)}++;
};

print "Word count:  ", Dumper(%count);

1;