Select Code to Download

#!/usr/bin/perl
use strict;
...
Value: -127 is negative
Negative binary: 10000001
Negative_binary back to decimal: -127

#!/usr/bin/perl
use strict;
...
Negative binary: 10001101
Use of uninitialized value $negative_d in concatenation (.) or string 
+at negative2bin&bin2negative.pl line 24.
Negative_binary back to decimal:

#!/usr/bin/perl
use strict;
...
Substring: 10111010001101010111111111000000
Negative binary: 10111010001101010111111111000000
Negative_binary back to decimal: -3.98765420913696

#!/usr/bin/perl
use strict;
...
Substring: 10101110100101010000001101001111101101111110011000001111110
+00000
Negative binary: 10101110100101010000001101001111101101111110011000001
+11111000000
Negative_binary back to decimal: -3.987654321