http://www.khanate.co.uk/blog/2019/04/26/perl-weekly-week-5/