in reply to my 1-st JAPH :)

perl -e 'print sqrt sprintf "%x", join "", map {ord} split //, "JAPH"'

[download]

In Section Obfuscated Code