lösung:
my $suffix = '.JPL';
my $srcdir = $Zeilen[3]."/";
my @dateien = glob($srcdir."*$suffix");
for my $datei(@dateien){
if(index($datei,"---") == length $srcdir ){ # line 63
my $length = length $srcdir;
(my $newname = $datei) =~ s/^.{$length}---/$srcdir/;
rename ($datei,$newname);
$datei = $newname;
}
my $document;
&functions(\$document,$datei,\%hash,$srcdir);
push(@documentlist,$document);
}
\n\n
<!--EDIT|shaihulud|1161103721-->