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