Help for this page

Select Code to Download


  1. or download this
    my $data = q{
line 1
...
# chomp $data; $data .= $/

print "$data";
  2. or download this
    @DATA = map "$_\n", split /\n/, $data; # but why add \n when you chomp
+ later?