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