http://www.perlmonks.org?node_id=362035


in reply to Re^2: (Golf) Tic Tac Toe
in thread (Golf) Tic Tac Toe

Forgot to do the final situation print in that 124, but now it prints the person whose turn is WAS.
s//123 456 789 z147,258,369,159,357/;$p=O;{/z/;print$`.$p;/$p{3}/?die$p:/\d/?$p^=O^X: +die Tie;1until<>=~/\d/&&s/$&/$p/g;redo}