If these are fixed width records it may be easier to use unpack.
When I downloaded the data I may have lost some of the formating so you may need to tweak the field widths.
This prints one record, one field per line with stars. You can then adjust the field widths to suit.

#!/bin/perl5
use strict;
use warnings;

for (<DATA>){
  chomp;
  next if /^=/;
  next if /^START/;
  my @fields = unpack "a31 a31 a17 a12 a9 a10 a14 a*", $_;
  for my $field (@fields){
    print "*$field*\n";
  }
  last;
}


__DATA__
==========                      ========                              
+=======              ====              ======    ======       =======
+===========
START TIME                            END TIME                        
+      VERSION             USER              SOURCE    STATUS    STATU
+S DESCRIPTION
==========                            ========                        
+      =======              ====              ======    ======    ====
+==============
August 26, 2004 1:21:04 AM        August 26, 2004 1:22:16 AM        2.
+0                 system            HA038974    Pending   [BATCHMODE]
+   Started installation process
September 5, 2004 2:49:03 AM    September 5, 2004 2:49:37 AM      2.0 
+                 system            HA038974    Pending      [BATCHMOD
+E]   Started installation process
September 16, 2004 12:32:34 PM  September 16, 2004 12:33:26 PM  2.1   
+               [kotzel_sup]  HA038974    Pending      Started install
+ation process
September 16, 2004 4:44:28 PM   September 16, 2004 4:44:34 PM      2.1
+                  [kotzel_sup]    HA038974    Finished  23 Successful
+, 8 Failed
[download]