$ mkdir 'a{bc.d';  touch 'a{bc.d/GOT ITabcde'
$ mkdir 'a {bc.d'; touch 'a {bc.d/GOT ITabcde'
$ ls
a {bc.d     a{bc.d

##</code><code>##

$ cat foo
$a=q|a\ \\\{bc.d/*|;print "pattern <", $a, "> globs to <", (glob $a), ">\n";
$ perl foo
pattern <a\ \\{bc.d/*> globs to <a {bc.d/GOT ITabcde>

##</code><code>##

$ cat foo
$a=q|a\ \{bc.d/*|;print "pattern <", $a, "> globs to <", (glob $a), ">\n";
$ perl foo
pattern <a\ \{bc.d/*> globs to <a >

##</code><code>##

$ cat foo
$a=q|a\{bc.d/*|;print "pattern <", $a, "> globs to <", (glob $a), ">\n";
$ perl foo
pattern <a\{bc.d/*> globs to <a{bc.d/GOT ITabcde>

##</code><code>##

$ cat foo
$a=q|a\\\{bc.d/*|;print "pattern <", $a, "> globs to <", (glob $a), ">\n";
$ perl foo
pattern <a\\{bc.d/*> globs to <a\>