https://fluca1978.github.io/2025/06/18/PerlWeeklyChallenge326.html#task2