my $num = 1024;
my $bin = sprintf ("010.10b", $num);
print $bin; #returns 100_0000_0000 instead of 00_0000_0000