https://fluca1978.github.io/2020/06/15/PerlWeeklyChallenge65.html#task2