https://jacoby.github.io/2020/10/14/perl-challenge-82.html