https://fluca1978.github.io/2024/01/22/PerlWeeklyChallenge253.html#task1plperl