Select Code to Download

my @digit = reverse split //, $bin;

...
 $num = $num * 2 + $bit;
}
print "\n$num\n";