https://fluca1978.github.io/2024/06/20/PerlWeeklyChallenge274.html#task2