Did you really run this program? I get (5.14.1):

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
[download]

break is part of given/when. The Perl equivalent to C's break would be last, but you probably meant next (C's continue)?

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