{ for (i = 1; i <= NF; i++) {
        if ($i ~ /PROCEDURE|OUTPUT|FEEDBACK|UPDATE/) { 
          if (afterheader) print rec; 
          afterheader = 1;
          rec = $i
        } else { rec = rec " " $i; }
      }
    }
END {if (afterheader) print rec}