https://fluca1978.github.io/2022/10/17/PerlWeeklyChallenge187.html#task2