$a=" 
---+---+---
";$b=" 1x x4$a 7x2x $a 5x6x3 

";map{$c=$_%2?X:O;$b=~s/$_/$c/;$_=$b;s/\d/ /g;s/x/ | /g;print}1..7;