Help for this page
my $data = q{ line 1 ... # chomp $data; $data .= $/ print "$data";
@DATA = map "$_\n", split /\n/, $data; # but why add \n when you chomp + later?