https://fluca1978.github.io/2025/07/24/PerlWeeklyChallenge331.html#task1plperl