解决方法
这个怎么样：
use File::Slurp; my $text = read_file($filename);
ETA：note Bug #83126 for File-Slurp: Security hole with encoding(UTF-8).我现在推荐使用File::Slurper(免责声明：我写的)，也因为它有更好的默认编码：
use File::Slurper 'read_text'; my $text = read_text($filename);
use Path::Tiny; path($filename)->slurp_utf8;