https://perlweeklychallenge.org/blog/review-challenge-017.md