https://fluca1978.github.io/2023/01/23/PerlWeeklyChallenge201.html#task1