Select Code to Download

my ($acc,$digit_count,$dec_string);
$digit_count = 1;
...

map {$acc += $_*$digit_count;$digit_count *=2;} reverse split '',$dec_
+string;
print $acc;