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