#!perl -p
s/\d+/unpack b8,chr$&/eg;$_=y/1//.$/