Select Code to Download

Unquoted string "break" may clash with future reserved word at zut lin
+e 33.
Useless use of a constant (break) in void context at zut line 33.
zut syntax OK

if (($leapString) =~ m/$vldbString/i) {
    $found = 1;
    break;  # <-- here, the equivalent to 'break' would be 'last';
            #     but you probably meant 'next;' ?
}