--- a/genorg.pl	Mon Jan 06 01:17:51 2025 +1000
+++ b/genorg.pl	Tue Jan 07 00:37:57 2025 +1000
@@ -511,7 +511,8 @@
   for my $cat (sort { $catags{$b} <=> $catags{$a} } keys(%catags)) {
     my $num = $catags{$cat};
     # ($h_intro, $h_c_intro, $h_cat_li, $h_chap, $h_en_cat, $h_en, $h_end)
-    print $fh $h_cat_li =~ s/NUMBER/$num/re
+    print $fh $h_cat_li
+      =~ s/NUMBER/$num/re
       =~ s/CATAG/$cat/er
       =~ s=LINK="$cat/1.html"=er;
     mkdir "$no_name_dir/$cat";
@@ -697,7 +698,7 @@
   }
 
   # $d1 is greater than $d2
-  sub cmp  {
+  sub cmp {
     my ($d1, $d2) = @_;
     for ($d1->{year} <=> $d2->{year},
 	 $d1->{month} <=> $d2->{month},