#!/bin/perl
while (<DATA>) {
    my $line = $_;
    $line =~ s/[A-Z,a-z,\>,\(,\),\-,\[,\],\:\_]/ /g;   # remove stuff
    my ($dt,$ev,$id,$st) = split(/\s+/,$line);         # split on spaces 
    print "Date:$dt\nEvent:$ev\nId:$id\nStatus:$st\n"; # tada!
}


__DATA__
2001/03/12 time>Event [21]Alert Completed (34562), Status: [22] Alert Completed,MN_netware-support