#!/perl/bin/perl
#
use strict;
use warnings;
use diagnostics;

my @text_master = <DATA>;
chomp @text_master;
my @text = @text_master;
article_title1();
print "\n";
@text = @text_master;
article_title2();

sub article_title1 {
    local $_ = shift(@text); # left in for side effect
    if (@text) {
        for (@text) {
            print "# TEXT-1 = '$_'\n";
            last if (/^$/);
            shift(@text);
        }
    }
    print "# TEXT-2 = '$_'\n" for @text;
}

sub article_title2 {
    local $_ = shift(@text); # left in for side effect
    if (@text) {
        my @text_copy = @text;
        for (@text) {
            print "# TEXT-1 = '$_'\n";
            last if (/^$/);
            shift(@text_copy);
        }
        @text = @text_copy;
    }
    print "# TEXT-2 = '$_'\n" for @text;
}

__DATA__
==Play Chess: 
Click the join icon to play

Matches_Sought.gif Matches Sought Graph

You can also start a game by clicking a dot in the Matches Sought graph.

Rest the mouse pointer over a dot.

Games on ICC are often described by their time limits.