Help for this page

Select Code to Download

Select or download this
```
use strict;
use warnings;
...
    }
}
```

Select or download this

print m/([xo])((...\1){2}|(..\1){2}|(.\1){2}|\1{2}(?=(...){0,2}$))/i?
"$1 wins.\n":"No winner.\n" foreach qw/x---x---x --x-x-x-- x--x--x-- 
xxx------ ---xxx--- ------xxx -x--x--x- --x--x--x x---x-x--/;