Result [link]

AC

Code [DL]

set bin [gets stdin]
set dec 0
foreach char [split $bin ""] {set dec [expr {($dec << 1) + $char}]}
puts $dec

stdin

1101000111010010010011000010110010100000111000000110010110000001110100100110000000011001100101100000

stdout

1038985619166112094008486500704

stderr