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