>>38
バイナリを扱うなら \r や \n といった論理的な表現を使わず \x0D や \x0A を使え。
print index join('', map chr, 0..31), "\x0A"; # 10

http://www.din.or.jp/~ohzaki/perl.htm#CRLF_Unify