https://jacoby.github.io/2019/07/01/perl-weekly-challenge-015.html