Select Code to Download

while(<>) {map { print "$_\n"} split; print "newline\n"}

undef $/;
$_=<>;
s/\n/ newline /g; 
map{ print "$_\n"} split;