$dir=~s#(?<!/)$#/#;  

##</code><code>##

next if ($path =~ /^\.\.?$/);