use Math::BigInt;
my $n = "16" x 1000;
say 0 + (Math::BigInt->new("$n")->as_bin() =~ tr/1//);