print OUTFILE, pack("B*",$string);