https://jacoby.github.io/2019/07/16/thoughts-on-perl-weekly-challenge-17.html