my $re = qr/
    (?:      # start non-capturing group
      [^\|]+ # as many non-pipe characters as possible
      \|     # followed by a pipe character
    ){5}     # and ensure there are 5 such groups in a row
    ([^\|]+) # capture as many non-pipe chars as possible
  /x;