use List::Util qw( reduce );

sub bin2dec {
	my ( $str ) = @_;
	reduce { mul2( $a, $b ) } "", split //, $str;
}