use strict;
use warnings;

while ( <DATA> ) {
    chomp;
    print bin_to_dec($_), "\n";
}

sub bin_to_dec {
    my $bits = shift;
    our( $power, $magnitude, $num );
    die "$bits is not a pure bit string.\n" if $bits =~ m/[^10]/;
    if (
        $bits =~ m/
                    (?{
                      $power = length($_) - 1;
                      $num = 0;
                    })
                    (?:
                      ([10])
                      (?{
                        $magnitude = 2 ** $power;
                        $^N eq '1' and $num += $magnitude;
                        $power--;
                      })
                    )+
                  /x
    ) {
        return $num;
    } else {
        die "Unable to resolve bits: $bits.\n";
    }
}

__DATA__
00000000
00000011
00000111
11100000
__OUTPUT__
P:\test>junk
0
3
7
224