Another one.

__(<DATA>,
0,0);sub __{@__
= map{substr($_,o__,
1) eq 'x'?int(substr($_,
1))*-1:int($_)}split(" ",$_[o__
]);print eval  __o($_) for($_[o__+
2],10);$____=$__[$_[o__+1]]+$_[o__+2];
__($_[o__],$___=$_[o__+1]+o__+1,$____)if
($_[1]<24);}sub o__{eval join "",map
{__o($_)}(111,114,100)}sub __o{
return join "",map{chr}
(99,104,114)}

__DATA__
074 043 x002 001 x084 033 045 001 005 x012 x003 013 x082 048 021 013 x
+006 x076 040 025 002 008 x006 0013
[download]

Thanks..