Select Code to Download

sub test {
   local $\="NEWLINE" if 1;
...
   }
   print "text:";
}

# This works.
my @ary;
...
my (@ary);
@ary = split (" ",$str) while (my $str=<DATA>);
print join(" / ", @ary);

my @words = map { split " ",$_ } <DATA>;
print "@words\n";

$/=" ";
my @words=<DATA>;