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