foreach my $file ( grep { !/\A\.{1,2}\z/ } readdir DIR ) { 
    munge($file); 
}