Chorob,
Thank you for your response. Since I am new to this PerlMonks site took me a while to figure out where replies to my query would go. I don't understand your comment as there are a number of if statements and a matching else for each...if you could explain a bit more I would appreciate it.