foreach my $datei (@dateien) { 
    if ($ARGV[0] eq '-s'){
    if ($datei =~ m/.*$ARGV[1]/){
     print $pfadtotal;
}
} else {