Rather than splitting out all of your pipe-separated records and dealing with the matches in the way you do, check out Text:xSV. That module will allow you to work with files of any delimiter in a much more intelligent manner.