#!/usr/bin/perl

use strict;
use warnings;

$" = ", ";

while (<DATA>) {
    /^(\w+)(?:[(](\d+)[)])?:?/g or next;
    my ($status, $exit) = ($1, $2);
    my (@vars)          = /\G[^(]*[(]([^)]*)[)]/g;
    print "Status: $status; ";
    print "Exit: $exit; "     if defined $exit;
    print "Variables [@vars]" if @vars;
    print "\n";
}

__DATA__
OFF
SUCCESS: (abc)
ERROR(1): disk number (27) crashed at (11:03)
WARNING(1): system is rebooting



Status: OFF; 
Status: SUCCESS; Variables [abc]
Status: ERROR; Exit: 1; Variables [27, 11:03]
Status: WARNING; Exit: 1;