my @F = grep { /^\w/ and not -d "$myDir/$_" } readdir( I );