Select Code to Download

$_='Ozxy%fstymjw%';s:.:chr((ord$&)-5):ego;split//;print$_,map{
$_[$_]^chr((26,16,1,24,0,9,15,12,31,13,23,92,42)[$_])}(0..$#_)