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