use bigint;print+as_bin{0+<>}=~/1.+/g