https://fluca1978.github.io/2023/10/30/PerlWeeklyChallenge241.html#task2