https://fluca1978.github.io/2021/08/23/PerlWeeklyChallenge127.html#task2