s/(^|\,)($mon_re)\s{1,2}(\d{1,2})\s(\d{4})\s\s?(\d\d?):(\d\d):(\d\d):(\d{3})([AP])M(\,|$)/
              $1 .
              sprintf( '%04d %02d %02d %02d:%02d%03d',