perl -lpe '$b=sprintf("%b",$_); $n=length($b); $_="$b ($n bits)"'
46223868
10110000010101000111111100 (26 bits)
369790944
10110000010101000111111100000 (29 bits)
^C
####
perl -lne '$d=pack("d",$_);$b=unpack("b*",$d);printf("%s (%d bits)\n",$b,length($b))'
518819.748032
1000001110011000001111111011111101110001010101011111100010000010 (64 bits)
64852.468503656
0100100010000110110111111011111101110001010101011111011100000010 (64 bits)
^C
##
##
perl -e '@ins=(518819.748032,64852.468503656);
for (0,1) { push @outs,unpack("b*",pack("d",$ins[$_])) }
$_ = ($outs[0] ^ $outs[1])|"0"x64; print join("\n","",@outs,$_,"")'
1000001110011000001111111011111101110001010101011111100010000010
0100100010000110110111111011111101110001010101011111011100000010
1100101100011110111000000000000000000000000000000000111110000000
##
##
1000001110011000001111111011111101110001010101011111100010000010
1000001110011000001111111011111101110001010101011111011100000010
0000000000000000000000000000000000000000000000000000111110000000
##
##
perl -e '@ins=( 518819.748032, 64852.468504*8 ); # less "precise" return value * 8!
for(0,1){ push @outs,unpack("b*",pack("d",$ins[$_])) }
$_ = ($outs[0] ^ $outs[1])|"0"x64; print join("\n","",@outs,$_,"")'
1000001110011000001111111011111101110001010101011111100010000010
1000001110011000001111111011111101110001010101011111100010000010
0000000000000000000000000000000000000000000000000000000000000000