Select Code to Download

sub article_title1 {
    shift(@text);
...
    } @text;
    print "# TEXT-2 = '$_'\n" for @text;
}

sub article_title2 {
    shift(@text);
...
    }
    print "# TEXT-2 = '$_'\n" for @text;
}