@a=(($a='   |   |   
').($b='---+---+---
')."$a$b$a
")=~/./gs;/^./,$a[$']=$&,print@a for X1,O29,X57,O9,X49,O53,X25