Select Code to Download

use warnings;
use strict;
...
    # return error message if wrong check digit was initially given
    return $check != $chars[11] ? "invalid checkdigit...should be $che
+ck" : 'Ok';
}

Ok