https://fluca1978.github.io/2023/11/27/PerlWeeklyChallenge245.html#task1plperl