https://www.kianmeng.org/2019/04/perl-weekly-challenge-001-2019-week-13.html
