Help for this page
next if ( "$dir_name/$file" =~ /\/\.$/ or "$dir_name/$file" =~ /\/\.\. +$/ );
next if "$dir_name/$file" =~ m{/\.\.?$};