Select Code to Download

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

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

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