メモっとこう、Perlでファイルを変数に一気読み

## $/(改行区切り)を無効にすることにより改行も含めて一括で変数dataに読み込める
open (IN , "< input.txt");
local $/ = undef;
my $data = <IN>;
print "$data\n";
close(IN);

忘れるからね。いつも。