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