http://www.khanate.co.uk/blog/2019/04/21/perl-weekly-week-4/