https://perlchallenges.wordpress.com/2020/03/02/perl-weekly-challenge-050/