#!perl -p00aFa $m=$_|$"x3x(($b="@-")/30%3 .($d=chop$b)/3).(ppp.$"x7)x3|$"x$d.(p.$"x9)x9|$"x10x$b.($p=p)x9,map$m=~++$p||push(F,$`.$_.$'),1..9while$_=pop@F,/0/