https://fluca1978.github.io/2023/09/04/PerlWeeklyChallenge233.html#task1plperl