#!/usr/bin/env perl

##</code><code>##

use strict;
use warnings;

##</code><code>##

use Data::Dumper qw( Dumper );

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

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

##</code><code>##

my @words = /\w+/g;

##</code><code>##

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

1;