https://perlchallenges.wordpress.com/2020/05/18/perl-weekly-challenge-061/