Eu canalizando a saída de vários scripts. Um desses scripts gera uma página HTML inteira processada pelo meu script perl. Eu quero ser capaz de puxar todo o 58K de texto para o script perl (que conterá novas linhas, é claro).

Eu pensei que isso poderia funcionar:

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

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

Mas isso não está fazendo o que eu preciso. Alguma sugestão?