https://github.com/drbaggy/perlweeklychallenge-club/tree/master/challenge-130/james-smith