perl -pi.bak -e "BEGIN{binmode(STDOUT)}" file1 file2

##</code><code>##

perl -pe "BEGIN {binmode(STDOUT)}" < in_file > out_file

##</code><code>##

perl -pi.bak -e "binmode ARGVOUT" file1 file2