in reply to Writing a string of bits to a file, binary-style

You mean, you want to interpret your binary string as bits? Use pack:
print FH pack 'B*', '101010101010';
Will that do it for you?