opendir(DIR, $some_dir) or die "Can't opendir $some_dir: $!";
my @subdirs = ();
foreach (readdir(DIR)){
  next if /^\.\.?$/; # skip . and ..
  push (@subdirs, $_) if -d "$some_dir/$_";
}
closedir DIR;

##</code><code>##

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