https://perlweeklychallenge.org/blog/weekly-challenge-072/