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

##</code><code>##

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