$_='\xee\x12\xcc\xb2\x98\x8by\xaf\xca\xd8\xd8\xd8\xe5\xe5XgLKMKMJhJgKsY\xf3\xf3\xf3\xf3duduegettYgKx!w!\x91/\x9d0\xf4\xf4\xe7\xe8\xdb\xde\xa6\xb2\xcc\xf3';s!.!"."x(($x=ord$&)/14)."#"x($x%14)!eg;s!.{22}!$&.reverse$/.$&!eg;vec($_,$x+=ord$&,8)=35while"!F\xff\x97\x0d\x11\xff\x94\xed+r"=~/./g;print
Note that non-ascii characters in the above source code will be escaped (such as \x9f).