https://perlchallenges.wordpress.com/2020/07/13/perl-weekly-challenge-069/