https://github.com/manwar/perlweeklychallenge-club/tree/master/challenge-146/james-smith