use bigint;print Math'BigInt'as_bin(<>)=~/1.+/g