#!/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        SOURCE        STATUS    STATUS 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    [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 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
__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 installation process
September 16, 2004      HA038974        Finished    23 Successful, 8 Failed