while ($ordner =~ / /) {$ordner=~ s/ /_/;}