Help for this page

Select Code to Download


  1. or download this
    my @ary=split(" ",$_) while (<DATA>);
print "@ary";
__DATA__
These are words
These are more words
  2. or download this
    my @ary;
@ary=split(" ",$_) while (<DATA>);
...
__DATA__
These are words
These are more words