$dir =~ s/([[\]{~*?])/\\$1/g;