Try this for size

#!/usr/local/bin/perl -w
use strict;

while (<DATA>) {
    next unless /((\S+\s+){3})(\S+\s+){10}(.*)/;
    print join "\t", $1, $3, $4, "\n";
}

__DATA__
START TIME            END TIME            VERSION    USER        SOURC
+E        STATUS    STATUS DESCRIPTION
==========            ========            =======    ====        =====
+=        ======    ==================
August 26, 2004 1:21:04 AM    August 26, 2004 1:22:16 AM    2.0    sys
+tem       HA038974    Pending    [BATCHMODE]Started installation proc
+ess
September 5, 2004 2:49:03 AM    September 5, 2004 2:49:37 AM    2.0   
+ system       HA038974    Pending    [BATCHMODE]Started installation 
+process
September 16, 2004 12:32:34 PM    September 16, 2004 12:33:26 PM    2.
+1    [kotzel_sup]    HA038974    Pending    Started installation proc
+ess
September 16, 2004 4:44:28 PM    September 16, 2004 4:44:34 PM    2.1 
+   [kotzel_sup]    HA038974    Finished    23 Successful, 8 Failed
__END__
Output:
August 26, 2004         HA038974        Pending    [BATCHMODE]Started 
+installation process
September 5, 2004       HA038974        Pending    [BATCHMODE]Started 
+installation process
September 16, 2004      HA038974        Pending    Started installatio
+n process
September 16, 2004      HA038974        Finished    23 Successful, 8 F
+ailed
[download]

Cheers,
R.