https://fluca1978.github.io/2023/11/13/PerlWeeklyChallenge243.html#task2plperl