unless ($pagestate && $pagesize && defined($title)) {
#  your tests
}

##</code><code>##

if (/^%%/) {
# your checks
}

##</code><code>##

last if (defined($doctitle) && $copies && $pagesize && $pagestate);