for my $datei ( @dateien ) {
  # *entweder* als regex
  $datei =~ s/^---//;
  # *ODER* ohne regex
  $datei = substr($datei,3) if ( index($datei, '---') == 0 );

   ...
}