https://samirparikh.com/blog/perl-weekly-challenge-085.html