https://perlchallenges.wordpress.com/2020/05/04/perl-weekly-challenge-059/