my $content = qq(Three blind mice.  Three blind mice.  See how they run.  See how they run.  The butcher's wife came after them with a knife, three blind mice.);
my @words = split(/\W/, $content);

chomp(@words);
foreach (@words) { print "$_\n"; }