https://devel.ringlet.net/misc/perlweeklychallenge-club/287/