use strict;
use warnings;

my $data = <<DATA;
2009-01-08 09:29:19    ABCDEF    943973    MS08-011    Security Update for Microsoft Works Suite 2005 (KB943973)
2009-01-08 09:29:19    ABCDEF    943973    MS08-011    Security Update for Microsoft Works Suite 2005 (KB943973)
2009-01-08 09:29:19    ABCDEF    951944    MS08-055    Security Update for the 2007 Microsoft Office System (KB951944)
2009-01-08 09:29:19    ABCDEF    953432        Update for Microsoft Office Outlook 2003 (KB953432)
2009-01-08 09:29:19    ABCDEF    954038    MS08-051    Security Update for 2007 Microsoft Office System (KB954038)
2009-01-08 09:29:19    ABCDEF    954326    MS08-052    Security Update for the 2007 Microsoft Office System (KB954326)
2009-01-08 09:29:19    ABCDEF    956391        Cumulative Security Update for ActiveX Killbits for Windows 2000 (KB956391)
2009-01-08 09:29:20    ABCDEF    956828    MS08-072    Security Update for the 2007 Microsoft Office System (KB956828)
2009-01-08 09:29:20    ABCDEF    956828    MS08-072    Security Update for the 2007 Microsoft Office System (KB956828)
2009-01-08 09:29:20    ABCDEF    957832        Update for Microsoft Office Outlook 2003 Junk Email Filter (KB957832)
2009-01-08 09:29:22    ABCDEF    958439    MS08-074    Security Update for the 2007 Microsoft Office System (KB958439)
2009-01-08 09:29:22    ABCDEF    958439    MS08-074    Security Update for the 2007 Microsoft Office System (KB958439)
DATA

open my $inFile, '<', \$data;

my %entries;

while (<$inFile>) {
    my ($date, $time, $endpoint, $kbid, $id, $title) =
        /(\S+)\s+ (\S+)\s+ (\S+)\s+ (\S+)\s+ (\w+-\d+\s+)? (.*)/x;

    $id ||= '';
    $entries{$kbid} = {
        date     => $date,
        time     => $time,
        endpoint => $endpoint,
        id       => $id,
        kbid    =>  $kbid,
        title    => $title,
        };
}
close $inFile;

print join ("\t", @{$_}{qw(id kbid title endpoint date)}), "\n"
    for sort {$a->{id} cmp $b->{id} or $a->{kbid} <=> $b->{kbid}} values %entries;