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

##</code><code>##

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