perl -e"BEGIN{ binmode STDOUT }" -pe1 file.in > file.out