one more, i just couldn't resist posting it...

$s='Kutt!aoouhfr!Pfrm iadkfr"';while($s){print&s;}sub
s{++$c;$y=$d;foreach(split(//,$s)){$s[$d++]=chr((ord()-($c%2)))
;};$s=substr($s,1,length($s));return$s[$y];}
[download]