https://perlchallenges.wordpress.com/2020/02/10/perl-weekly-challenge-047/