http://www.perlmonks.org?node_id=358570

Possibly of common interest, may require your own mutations:


Notes to self: