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

My first ever attempt at a Japh, so it probably isn't as nifty as most of you could come up with, but I spent a while on it and as silly as it is, i'm somewhat proud. Maybe it'll end up as my sig?

$\="\t";$u||=$^T!~/\d/?$^O:$^T;$w=$u!~/\D/?0:1;x("4A","16","07","86"); sub x{while(@_){$u**=$^T!=cos($w)?$w:$#_;print map{ $w<$u?chr(hex shift):chr(hex reverse(shift))}$_;$w+=length%2!=1?-1:1;} +}

Cheers!