https://fluca1978.github.io/2022/07/11/PerlWeeklyChallenge173.html#task2