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

my $num = 0;
for my $bit (@digit) {
 $num = $num * 2 + $bit;
}
print "\n$num\n";