my $dir  = "[]{~*?";
my $dir2 = "[]{~*?";

$dir =~ s/([[\]{~*?])/\\$1/g;
print "$dir\n";
print quotemeta($dir2), "\n";