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

##</code><code>##

$VAR1 = [
          1,
          1
        ];

##</code><code>##

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

##</code><code>##

$VAR1 = [
          'aboveboard',
          'aboveground',
          'abovementioned',
          [...]