perl -e 'print sqrt sprintf "%x", join "", map {ord} split //, "JAPH"'
perlmonks.org content © perlmonks.org and Andrew_Levenson, Anonymous Monk, jdalbec, ku6ep
prlmnks.org © 2006 edmund von der burg (eccles & toad)
v 0.03