sub article_title3 {
  local $_ = shift(@text); # left in for side effect

  while (defined ($_ = shift @text)) {
    print "# TEXT-1 = '$_'\n";
    unshift(@text, $_), last if /^$/; # put empty line back
  }
  print "# TEXT-2 = '$_'\n" for @text;
}