Help for this page

Select Code to Download

Select or download this

#!/bin/perl
while (<DATA>) {
...

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

Select or download this

xdev$ ./split.pl
Date:2001/03/12
Event:21
Id:34562
Status:22