http://www.khanate.co.uk/blog/2019/05/14/perl-weekly-challenge-part-8/