Perl - Leitura de Arquivo Gerado no Windows

Os arquivos texto gerados no Windows/DOS normalmente terminam por '\r\n', o que pode ser um problema. Para tratar esta situação pode-se usar uma expressão regular:

$registro =~ s/\r//g;

Exemplo:

while ($registro = <STDIN>) {
   $registro =~ s/\r//g;
   chomp($registro);
}

PS. Valeu Dárcio!