https://perlchallenges.wordpress.com/2019/11/11/perl-weekly-challenge-034/