Help for this page
my @dots = grep { /^\./ } readdir(DIR);
my @not_dots = grep { !/^\./ } readdir(DIR);