in reply to PERL CODE

What have you tried so far? What issues are you having?