$foo = "baz"; 
$bar = "foo";

print unpack("B*", $foo); 
print unpack("B*", $bar); 
print unpack("B*", ($bar ^ $foo));
__END__
011000100110000101111010
011001100110111101101111
000001000000111000010101