xgettext: Perl: Avoid unbounded nesting_depth growth, part 3.

xgettext: Perl: Avoid unbounded nesting_depth growth, part 3.

* gettext-tools/src/x-perl.c: Return from extract_balanced when a subroutine's
definition terminates and that subroutine was defined after a declaration that
ended with a semicolon.
(extract_perl): Pass semicolon_delim=true.

Test case:
==========================================
my %a = 4;

sub b
{
}
==========================================