That would cause a problem if $opt_d equals ^. Perl seems to handle the cases /[-]/, /[[]/, /[]]/ as the appropriate single character class, but it trips on /[^]/. I wonder whether that's a bug (or a yet unimplemented feature).

Of course, you can get all sorts of unexpected nonsense if $opt_d is longer than a single character. Or if it's the empty string.