Select Code to Download

my ($date_stamp,$event,$alert_id,$status);
my $str = '2001/03/12 time>Event [21]Alert Completed (34562), Status: 
+[22] Alert Completed,MN_netware-support';

...
print "[$event]\n";
print "[$alert_id]\n";
print "[$status]\n";

[2001/03/12]
[Event [21]Alert Completed]
[34562]
[Status: [22] Alert Completed,MN_netware-support]

^             start at the beginning of the line
([\d\/]+)     match and save a bunch of digits and /'s
.*?           lazily match and ignore stuff until...
...
\),           match and ignore literal paren, comma, and space
(.*)          match and save anything until...
$             the end of the string