$a=" \n---+---+---\n";$b=" 1x x4$a 7x2x $a 5x6x3 \n\n";map{$c=$_%2?X:O;$b=~s/$_/$c/;$_=$b;s/\d/ /g;s/x/ | /g;print}1..7;