Select Code to Download

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

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