Help for this page
sub sb2d{ my $n=shift; ... $n = eval{ no warnings; eval '0b'.$n;}; $s ? -1 * ++$n : $n }
sub signedBin2Dec{ my $n=shift; ... $n = do{ no warnings; eval '0b'. $n}; $1 ? -1 * ++$n : $n }