print scalar split /\n/ for "1\n2\n3\n\n";  # Prints 3 instead of 4

##</code><code>##

print scalar split /\n/, $_, -1 for "1\n2\n3\n\n";  # Prints 5

##</code><code>##

print tr/\n// + !/\n\z/;