Even completely new you must have some idea. How would you manually do it? Can you translate that into Perl?

Please, let us see where you have run into a wall after attempting a solution.
You'll learn a lot from the attempt - more than you will from reading solution suggestions here.