Thanks a lot. I could use the idea for another file I need to extract data. I'm new to perl and all your input helped a lot.