https://fluca1978.github.io/2024/02/14/PerlWeeklyChallenge256.html#task2