http://www.mawode.com/blog/blog/2020/10/10/perl-weekly-challenge-81/