#!/usr/bin/perl -w
use strict;

$_=   q^$  6{1   }=sub{@   1=m  ap{   'E'
 eq$ _?c   hr(  32):$_}@0  ;$\   =(' -'x 
  5).$/    ;{p  rin   t"@  1[@    2]\n"  
   ;pr     int  "@1   [@3  ]\n     "}$   
  \=q'"    ';c  hop   $\;  pri    nt"@1  
 [@4 ]\n   "};  @0=('E')x  9;@   9=( 7)x 
3;@   8=(  011   1)x3;@7   =(2  **8   ,12
           05)             ;fo           
r(0..2){$8[$_]*=2**$_;$9[$_]=$9[$_]<<(3*$
_);for(@7){$_=oct}}@9=(@9,@8,@7);for(2..4
           ){e             val           
"\@   $_=  (${   \(($_-2   )*3  )}.   .${
 \(( $_-   1)*  3-1)})"}$  6[1   ]=s ub{ 
  {$==p    op;  $%=   0}f  or(    @4,@2  
   ,@3     ){$  %+=   ($=  >>$     _)&   
  1}$%}    ;$6  {l}   =su  b{$    ;=0;f  
 or( 0..   8){  $0[$_]eq'  X'?   $;+ =2* 
*$_   :0}  {(g   rep{&{$   6[1  ]}(   $_&
           $;)             ==3           
}@9)?return'X':0}$;=0;for(0..8){$0[$_]eq'
O'?$;+=2**$_:0}(grep&{$6[1]}($_&$;)==3,@9
           )?'             O':           
 ''};for   (1.  .9)   {do  {$;   =rand(9 
)}until$0  [$;   ]eq 'E'   ;$0  [$;]=$_%2
?'X   ':'  O';    ($.=&    {$6  {l}   })?
las   t:0  }$.     .=$     .?c  hr(   32)
.'w   ins  !':    '';$"    ='|  ';&   {$6
{1}};$.?p  rin   t$. ,$/   :0^  ;s;tic$|[
 ];;g;/t   ict  act   oer  ule   s/;eval
[download]

Note: You may want to run it a few times for full effect.

His Royal Cheeziness