Help for this page

Select Code to Download


  1. or download this
    perl -ne "$i++ || binmode(STDOUT);chomp;print pack(q/B*/,$_);" infile 
+>outfile
  2. or download this
    perl -pe "binmode STDOUT;chomp;$_ = pack(q/B*/,$_);" infile >outfile