【Perl】初心者コーナーPart9

質問です．
バイナリとして読み込んだテキストファイルを処理して出来た文字列があります．
この文字列の末尾の改行を取り去りたい場合，
s/\x0D?\x0A?$// とする以外無いのでしょうか．
chompはどうも\x0Aしか消してくれないみたいなので，
改行コードが\x0D\x0Aだった場合は\x0Aのみが消されて\x0Dが残ってしまいます．

s/\x0D?\x0A?$// より良い方法があればご教示ください．
OSはWindows2000，PerlはActivePerlとPerl for Cygwinを使っています．

$_ = "str\x0D\x0A\x0D\x0A";
open(OUT_BIN, "> ./out_bin.txt") or die;
binmode(OUT_BIN);
chomp;
print OUT_BIN;
close(OUT_BIN);