https://perlchallenges.wordpress.com/2020/04/27/perl-weekly-challenge-058/