next if ( "$dir_name/$file" =~ /\/\.$/ or "$dir_name/$file" =~ /\/\.\.$/ );

##</code><code>##

next if "$dir_name/$file" =~ m{/\.\.?$};