Select Code to Download

#!/usr/bin/perl

...
my $number2 = oct "0b$bitstring2";

printf "%s + %s = %b\n", $bitstring1, $bitstring2, $number1 + $number2
+;