in reply to A simple graphical one..

Much better :) ...
Hehe, the chunk of code has a lot of noise ... but the __DATA__ and the result has a little bit obvious relation ...

perl -Te 'print map { chr((ord)-((10,20,2,7)[$i++])) } split //,"turo"'

In Section Obfuscated Code