http://www.mawode.com/blog/blog/2020/09/14/perl-weekly-challenge-78/