http://packy.dardan.com/2023/07/27/perl-weekly-challenge-227/