Select Code to Download

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

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

use constant 
STATUS_COMPLETED_RE => qr{ ^string-here \s string-here: \s
...
                         }xms
                         ;