プロセス生成のコストとか気になったらちゃんと書き直す。気にならなければこのまま。 my $text = `cat a.txt`; In Perl, how can I read an entire file into a string? - Stack Overflow my $text = do { local $/=undef; open(my $fh,"a.txt"); <$fh> }; …