my $path = q~"c:\eigene Dateien\anything"~;
print `dir $path`;


##</code><code>##

perl -le "s==*F=e=>y~\*martinF~stronat~=>s~[^\w]~~g=>chop,print"