Need a help to write a perl script

What is your definition of help to write? It appears that your question should read "Need you to write a perl script...".

Please post any code that you have already written, sample input, expected output, and actual output. Also read Markup in the Monastery (especially the section on <code>...</code> blocks).