https://perlchallenges.wordpress.com/2020/06/29/perl-weekly-challenge-067/