https://perlchallenges.wordpress.com/2020/08/12/perl-weekly-challenge-073/