Yes, the sub-match parenthesis are missing. And the PERLMONKS_ part. And the case of Check. Should be (still not tested):

    if($array[$i] =~ /check-->\s*(\S*\d+)$/)
            {
                $Output= $1;
[download]