http://www.mawode.com/blog/blog/2020/07/31/perl-weekly-challenge-71/