$a|=/ /.0 x$_.$a&1x$'.1for<>;$a=~/10*$/;print@-