https://fluca1978.github.io/2024/04/04/PerlWeeklyChallenge263.html#task2