here's my first try on obfuscation
maybe i got to much time at work ;)
$_="What is this?"
;my@t=unpack("C*",$_);my@
o;$o[0]=$t[0]-$t[12]+$t[9]-$t
[6]+$t[2]+$t[9]-$t[10];$o[1]=$t[3]
+$t[8]-$t[1]-$t[12]+$t[0]-$t[6]+$t[8]-$
t[10];$o[2]=$t[12]+$t[7]+$t[8]-$t[9]-$t[10]
+$t[3];$o[3]=$t[9]-$t[12]+$t[9]-$t[7]-$t[8]+
$t[9];$o[4]=$t[8]-$t[0]+$t[6]-$t[10];$o[5]=$
t[6];$o[6]=$t[7];$o[7]=$t[10]+$t[9]-$t[12]
-$t[7]-$t[8]+$t[9];$o[8]=$t[5];$o[9]=$t[3
]+$t[8]-$t[12]-$t[0]+$t[4];$o[10]=$t[6];$
o[11]=$t[3];$o[12]=$t[7];$o[13]=$t[0]-$t[
12]-$t[6]+$t[2]+$t[10];$o[14]=$t[9]-$t
[12]-$t[7]-$t[8]+$ t[9]+$t[9]+$t[9]
-$t[ 12]-$t[7]-
$t[8]+$t[9 ];$
o[15]=$t[9 ]+$t[10]
-$t[12]-$t [7]-$t[8]+$t
[9];$o[16]=$t[3]+$t[8]-$ t[11]
;$o[17]=$t[6];$o[18]=
$t[9]-$t[12]-$t[7]-$t
[8]+$t[9]+$t[9]+$t[9
]+$t[10]-$ t[12]-
$t[7]-$t[8 ]; $o
[19]=$t[2] ;$ o[
20]=$t[3];$o[21]=$t[9]+$t[10]-$t[9];$o[22]=$t[0]-$t[12]-$t[6]+$t
[2]+$t[10];$o[23]=$t[0]-$t[12]+$t[9]-$t[6]+$t[2];print pack ("C*",@o);