{
    @data = &quotewords('\s+', 0, $_);
  }
  if ((/^PER\s*$/) && ($data[0]) && ($data[1]) && ($data[2]) && ($data[3]))

##</code><code>##

while (<>){
  last if EOS
  if (PER){
    read a PER line and process it
  }
  elsif (EMP){
    read an EMP line and process it
  }
}