sub article_title1 {
    shift(@text);
    @text = grep {
        print "# TEXT-1 = '$_'\n" if ?^?../^$/;
        /^$/..0;
    } @text;
    print "# TEXT-2 = '$_'\n" for @text;
}

##</code><code>##

sub article_title2 {
    shift(@text);
    while (@text) {
        print "# TEXT-1 = '$text[0]'\n";
        last if ($text[0] eq '');
        shift(@text);
    }
    print "# TEXT-2 = '$_'\n" for @text;
}