Hi,

I want you to show us what code you've attempted to write to solve this problem, and why you think your code doesn't work. I'm also interested in seeing which resources you consulted before you decided to ask us. This isn't a "do my homework for me" type site, sorry. We are more than willing to help perl programmers solve perl programming problems, but typically not to write your entire script for you.