https://fluca1978.github.io/2020/05/04/PerlWeeklyChallenge59.html#task2