ファイル一括読み込み

http://mt.endeworks.jp/d-6/2011/04/perl-5.html
ここで書かれておられて結構重宝していたのだけれど、
結構下がっちゃって探すの大変なのでメモ。

open my $fh, '<', "/path/to/file.txt"
    or die "failed to open file: $!";
my $content = do { local $/; <$fh> };

open my $fh, '<', "/path/to/file.txt"
    or die "failed to open file: $!";
my @lines = split /\n/, do { local $/; <$fh> };