perl -ne "$i++ || binmode(STDOUT);chomp;print pack(q/B*/,$_);" infile >outfile

##</code><code>##

perl -pe "binmode STDOUT;chomp;$_ = pack(q/B*/,$_);" infile >outfile