DB<84> x <[*>
0  '[KSR_3.pl'
  DB<85> $re = glob_to_regex( '[*' )
Unmatched [ in regex; marked by <-- HERE in m/^(?=[^\.])[ <-- HERE (?:(?!\/).)*$/ at c:/Strawberry/perl/vendor/lib/Text/Glob.pm line 18.

  DB<86> x $re_str = glob_to_regex_string( '[*' )
0  '(?=[^\\.])[(?:(?!\\/).)*'
  DB<87>