長いことPerlを使っているけど、いまさらながらちょっとはまったのでメモ。
いままで気にせずにやってたけど、必要なときもある。

サンプルスクリプト：

#!/usr/bin/env perl
use strict;
use warnings;

my $text = "this
is
a
pen


"; # 末尾に空行が2行

# 普通に split
print join("", map {"[$_]"} split(/\n/, $text))."\n";

# split の第二引数に -1
print join("", map {"[$_]"} split(/\n/, $text, -1))."\n";

# ファイル末尾が改行だと1行余分になるので削る
chomp $text;
print join("", map {"[$_]"} split(/\n/, $text, -1))."\n";

実行結果：

[this][is][a][pen]
[this][is][a][pen][][][]
[this][is][a][pen][][]