my $suffix = '.JPL';
my $srcdir = $Zeilen[3]."/";
my @dateien = glob($srcdir."*$suffix");

for my $datei(@dateien){
    if(index($datei,"---") == length $srcdir ){ # line 63
        my $tempsrc =quotemeta $srcdir;
        (my $newname = $datei) =~ s/^($tempsrc)---/$tempsrc/;
           print $newname;
        rename ($datei,$newname);
        $datei = $newname;
    }
    my $document;
    &functions(\$document,$datei,\%hash,$srcdir);
    push(@documentlist,$document);
}