# Any version of Perl
      $re = do {
         my $ra = Regexp::Assemble->new();
         $ra->add($_) for sort ocr_sort @re;
         $ra->re
      };
      $re2 = {
         my $ra = Regexp::Assemble->new();
         $ra->add($_) for sort ocr_sort @re2;
         $ra->re
      };