if((index($line, "*** DOCUMENT BOUNDARY ***") == 0) or
   (index($line, "FORM=") == 0))
{
   check();
   print "$line\n";
   next;
} elsif($line=~/\.\d{3}./) {
# ...