我如何在 Perl 中读取 STDIN？

我通过管道传输了几个脚本的输出。其中一个脚本输出整个 HTML 页面，并由我的 perl 脚本处理。我希望能够将整个 58K 文本提取到 perl 脚本中（当然，其中将包含换行符）。

我认为这可能有效：

open(my $TTY, '<', '/dev/tty');

my $html_string= do { local( @ARGV, $/ ) = $TTY ; <> } ;

但它只是没有做我需要的事情。有什么建议么？

my @lines = <STDIN>;

or

my $str = do { local $/; <STDIN> };