#! /usr/bin/env perl
use strict;
use warnings;

my $outfile = 'adresses.csv';

open my $OUTH, '>>', $outfile or die "open($outfile, w+) failed: $!";

for my $i ( 1 .. 1290 ) {

   my $pdffile = sprintf "%02d.pdf", $i;
   my $txtfile = sprintf "%02d.txt", $i;
   
   my $prog = "C:/pdf/pdftotext.exe -f 1 $pdffile $txtfile";
   system( $prog ) == 0 or next; # bei Fehler weiter mit der naechsten datei

   open my $INH, '<', $txtfile or die "open($txtfile,ro) failed: $!";
   ( undef, my $address ) = <$INH>;  # zweimal lesen; erste "Zeile" ignorieren
   print $OUTH $address;
   close $INH;
}

close $OUTH or die "close($outfile) failed: $!";