You describe a script that is (in all likelihood) fairly easy to develop. I doubt you'll find a completely 'generalized' script that will just automatically work with your file. However, if you post more details, someone will most likely be able to assist you.
What are the fields separated by the '|'? How many fields are there? How do you want to display each field? Etc...
($field1,$field2,$field3,$field4) = split(/\|/);
print "FieldOne = ".$field1."
print "FieldFour = ".$field4."