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


in reply to Saturn

veryyyyyy cooooool, both code and the output