Select Code to Download

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

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