use Text::ParseWords;

my $heredoc =<<END_OF_HEREDOC;
The Text::ParseWords module is the most 
recent module with which I've struggled.
END_OF_HEREDOC

my @words = quotewords('\s+', 0, $heredoc);

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