--- rc5_history.pl.orig Tue May  7 14:18:41 2002
+++ rc5_history.pl      Mon Jun 10 18:56:25 2002
@@ -280,8 +280,8 @@
   # That's the raw ASCII history page!
   print "Parsing input raw data page...\n" unless $arg_quiet;
   ($participant_id) = m:PARTICIPANT=(.*):;
-  @dates  = m:(\d+/\d+/\d+),\d+:g;
-  @blocks = m:\d+/\d+/\d+,(\d+):g;
+  @dates  = reverse m:(\d+/\d+/\d+).+,\d+:g;
+  @blocks = reverse m:\d+/\d+/\d+.+,(\d+):g;
   for (@dates) { 
     s:0?(\d+)/(\d+)/(\d+):sprintf("%s-%s-%s", $2, $rmonth{$1}, $3):ge
   }