https://github.com/manwar/perlweeklychallenge-club/blob/master/challenge-131/iangoodnight/perl/README.md