sub signedBin2Dec{ 
    my $n=shift; 
    return undef unless $n =~ m[^([01])[01]+$]; 
    $n=~tr[01][10] if $1; 
    $n = do{ no warnings; eval '0b'. $n}; 
    $1 ? -1 * ++$n : $n 
}