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