https://lancewicks.com/2020/08/16/perl-weekly-challenge-73/