https://perlchallenges.wordpress.com/2020/01/06/perl-weekly-challenge-042/