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