my $sorter = new Unicode::Collate::
                    upper_before_lower  => 1,
                    preprocess          => \&reduce_for_sorting,
                    entry               => deQ<<'END_OF_OVERRIDE',
     |Q|
     |Q|        005B 006E 002E ; [.0200.0020.0002.0391] # [n.
     |Q|        005B           ; [.0220.0020.0002.0392] # [
     |Q|        005D           ; [.0225.0020.0002.0395] # ]
     |Q|
END_OF_OVERRIDE
             ;