@files = grep {/^(?!\.{1,2}\z)/} readdir($DIR);