Wow, I can't tell you how much I appreciate that.

No it is not my homework, it's a part of a project. I have been coding in Perl for some time, but have not done anything like this before. So, I could not find a good way to code this, your one is far better than my one.

Thanks a lot indeed..