my (
      $field1,
      $field2,
      #...
      $field25,
      @field26[0..25],
      $field27,
      $field28,
      #...
   ) = split(/\|/);