#!perl -lp
$b=!s/.(.)(.)/$&&$1^$2/ge;y/ ,)4(#.=/0-8/;for$a(qw/ \?  \d$/){$b.=/\d?$a/?1+$&:$b&&0}$_=$b