my @dateien = glob($srcdir."*$suffix");
for(@dateien){
    if(index($_,"---") == 0){
        (my $newname = $_) =~ s/^---//;
        rename $_,$newname;
        $_ = $newname;
    }
}