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);