Help for this page

Select Code to Download

Select or download this
```
$dir =~ s/([[\]{~*?])/\\$1/g;
```

Select or download this

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