http://www.mawode.com/blog/blog/2020/09/26/perl-weekly-challenge-79/