http://www.mawode.com/blog/blog/2020/09/07/perl-weekly-challenge-77/