What steps would you perform if you were doing this by hand? Don't worry about the Perl; explain the solution to yourself, and you're more than halfway to writing the program.