my @w = map /\S+/g, <DATA>;
use Data::Dumper;print Dumper \@w;
__DATA__
aboveboard aboveground abovementioned abrade Abraham Abram Abramson
abrasion abrasive abreact abreast abridge abridgment abroad