Select Code to Download

#!/usr/bin/perl
use strict;
...
print "(unescaped) path = $path\n";
($path = $str) =~ s{\Q$name\E}{};
print "(escaped) path = $path\n";

 str = /path/to/f(il)e
name = f(il)e
(unescaped) path = /path/to/f(il)e
(escaped) path = /path/to/