https://fluca1978.github.io/2023/03/30/PerlWeeklyChallenge210.html#task1plperl