Solutions to weekly challenge 281 by Bob Lied

https://perlweeklychallenge.org/blog/perl-weekly-challenge-281/
https://github.com/boblied/perlweeklychallenge-club/tree/master/challenge-281/bob-lied