https://fluca1978.github.io/2020/06/08/PerlWeeklyChallenge64.html#task2