perl での改行削除

perl でファイルを処理するとき、改行を削除することがあります。
ファイルを作成した環境が UNIX 限定であれば、

chomp();

でいいのですが、Windows だった場合は CR だけ残ったりします。

面倒なので、

test.pl

while(<FILE>) {
    s/(\r\n|\r|\n)$//g;
    処理
}

と、書いてしまえば楽ちんです。