open(EINS, '<ErsteDatei.txt') or die $!;

my (%pnr1, $cnt);

$cnt = 0;

while(<EINS>) {
    chomp;
    my @f = split(/\t/);
    $pnr1{join('|',@f[1..2])} = 1;
    ++$cnt % 1000 or print "Bei Satz $cnt.\n"
}

print "Fertig mit $cnt Saetzen.\n";

close(EINS);


open (ZWEI, '<ZweiteDatei.srt') or die $!;
open (AUS,  '>Gefunden.txt')    or die $!;

$cnt = 0;

while(<ZWEI>) {
    my $vergleich = su_strip(su_strip(substr($_,67,30))."|".substr($_,157,30));
    print AUS $_ if defined $pnr1{$vergleich};
    ++$cnt % 1000 or print "Bei Satz $cnt.\n"
}

print "Fertig mit $cnt Saetzen.\n";

close(ZWEI) or die $!;
close(AUS)  or die $!;

1;

sub su_strip {
    my $s = shift;
    $s =~ s/\s+$//;
    $s =~ s/^\s+//;
    $s;
}