Basic text manipulation using Perl was demonstrated previously. See how more complex algorithms can be written in Perl too – even artificial intelligence!

Source: LXer – Demonstrating Perl with Tic-Tac-Toe, Part 3