Help for this page

Select Code to Download


  1. or download this
    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
  2. or download this
    $VAR1 = [
          1,
          1
        ];
  3. or download this
    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
  4. or download this
    $VAR1 = [
          'aboveboard',
          'aboveground',
          'abovementioned',
          [...]