What have you tried? What part are you having problems with?

perlintro should teach you enough Perl to solve this problem.