Array found where operator expected at check.pl line 82, at end of line
        (Missing operator before ?)

##</code><code>##

        if (@data = ($line =~ STATUS_COMPLETED_RE )) {
            $stats{level} = $shift @data;
            $stats{group} = $shift @data;
            $stats{total} = $shift @data;
        }

##</code><code>##

use constant 
STATUS_COMPLETED_RE => qr{ ^string-here \s string-here: \s
                         \((\w+)\) \s               #alarm level
                         ([\w|\s]+) \s completed, \s #job completed
                         Total\s (\d+) \sclient\(s\), \s #total clients
                              (                           #Details -
                                  (\d+) \s                # number
                                  ([\w|\s\(\)]+) ,|\.             # succeed,fail,etc.
                               )*                          # any number of
                         }xms
                         ;