hi Mortiz,
I agree with what the moderator has just told below/above.
This is not a demand of service question and not part of any homework assignment or work related question. I just happen to
read some sample Qs in a text book and found this particular question very interesting. But since i'm pretty new to perl, i couldnt do it myself hence posted here.
It would be really helpful for me to dissect what you wrote if u can explain briefly what each line/expression does.
again im just a novice and doesnt know much of the literature.
Thanks for ur help Mortiz