https://jacoby.github.io/2019/08/05/perl-weekly-challenge-week-20.html