https://perlchallenges.wordpress.com/2020/06/15/perl-weekly-challenge-065/