I have looked at your code, some of it I do not understand. I am in the process of learning the basics and I do not want to just copy someone else's code to solve my problem. I want to try and learn it myself. I know that there are easier and better ways to accomplish what I am trying to do. As I grow in the language I will be able to tweek it.
The part numbers are in this format '68-2455-00' in the text file the part number is followed by several other fields all seperated by '|' When the part number is matched I want to print out the entire string that follows the part number in the text file. I did not see how to do this using the code you provided mainly because it uses some stuff that I have not learned about yet. I have only been learning Perl for about 1 1/2 weeks.
That is why I am doing the hack job on it that i am doing. Also why I am spendiing several hours a day here learning.
Kerry