Select Code to Download

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 
}