opendir(DIR,"test"); while($datei = readdir(DIR)) { open(INPUT,"; $_ =~ tr// /; close (INPUT); close(FILE); } closedir(DIR);