Sorry if I offended anyone. I did have the code, but I am afraid that I was using too much code to do a simple task. I am new to perl and I was desperate to find an answer. Sorry. I will register myself.