/-aAesop
/-sTyranny
/-qAny excuse will serve a tyrant. 
/-sWise Sayings
/-qIt is easy to be brave from a safe distance.
/-sWise Sayings
/-qIt is not only fine feathers that make fine birds.
/-sWise Sayings
/-qWe often despise what is most useful to us.
/-sWise Sayings
/-qNever soar aloft on an enemy's pinions.
/-sWise Sayings
/-qExample is the best precept.
/-sWise Sayings
/-qThinking to get at once all the gold the Goose could give, he killed it and opened it only to find,--nothing.

/-aDante Alighieri
/-sLiberty,Freedom
/-qMankind is at its best when it is most free. This will be clear if we grasp the principle of liberty. We must recall that the basic principle of liberty is freedom of choice, which saying many have on their lips but few in their minds.

##</code><code>##

my @files = qw(quotePAGE1 quotePAGE2);

for @files {
    open IN, $_ or die "failed opening file $_, at";
    $\ = "\n\n";
    my $num = 0;
    my $chunk;
    while($chunk = <IN>) {
        ++$num;
        $chunk =~ s|^/-a(\S+)[^/n]*\n|| or 
   die "no author?  file $_, chunk $num; at";
        while($chunk =~ s|/-s(\S+)[^\n]*\n/-q [end of code]