https://perlweeklychallenge.org/blog/review-challenge-033