https://perlchallenges.wordpress.com/2020/01/21/perl-weekly-challenge-044/