use bigint;print+(1*<>)->as_bin=~/1.+/g