use strict;
use warnings;

# Assume that the 3x3 AoA has been flattened to a single string.
# Each string, therefore, equates to a single game.

my @games = (   "x---x---x",    # Diag from top left. 1
                "--x-x-x--",    # Diag from top right. 3
                "x--x--x--",    # Vert from top left. 2
                "xxx------",    # Horiz from top left. 4
                "---xxx---",    # Horiz from mid left. 4
                "------xxx",    # Horiz from bottom left. 4
                "-x--x--x-",    # Vert from top mid. 2
                "--x--x--x"  );
            

my $i;
foreach my $game ( @games ) {
    print "Game ", ++$i, "\t";
    if ( $game =~ m/ 
                    ([xo])
                    (?:
                         (?:...\1){2}
                      |  (?:..\1){2}
                      |  (?:.\1){2}
                      |  \1{2}(?=(?:...){0,2}$)
                    )
                   /ix ){
        print "$1 wins.\n";
    } else {
        print "no winner\n";
    }
}