Wie doof von mir: Ich habe die ersten 20 Grafiken tatsächlich von Hand eingebunden.

Zeilennummern

    1 #!/usr/bin/perl
    2 
    3 use warnings;
    4 use strict;
    5 
    6 my $HANDLE;
    7 
    8 open($HANDLE, ">out.txt");
    9 
   10 for (my $i=21; $i<70; $i++) {
   11     print $HANDLE '
   12 %\begin{figure}
   13 %    \begin{center}
   14 %        \includegraphics{anhang_a/stemma'.$i.'}
   15 %        \caption{Stemma zu Satz '.$i.'}
   16 %        \label{fig:stemma'.$i.'}
   17 %    \end{center}
   18 %\end{figure}
   19 ';
   20     if ($i % 15 == 0) {
   21         print $HANDLE '
   22 %\clearpage% need to flush the float object cache from time to time
   23         ';
   24     }
   25 
   26 }
   27 
   28 close($HANDLE);