/ .*(.)/,$a[$&+3]|=$"x($_+($$^91)%15-7).$1for<>;print+($_|$a)=~y/ /-/r,$/for grep$a|=$_^$_,@a