binmode($fh_out);

while (<$fh_in>) {
   chomp;
   print $fh_out pack('B*', $_);
}
[download]

Reference: pack