https://perlchallenges.wordpress.com/2019/12/23/perl-weekly-challenge-040/