https://jacoby.github.io/2020/03/02/perl-challenge-50.html