是的，
There’s More Than One Way To Do It，但必须有一个规范的或最有效的或最简洁的方式。我会添加我知道的答案，看看什么渗透到顶部。
解决方法
这个怎么样：
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;