undef $/;map{$t="248242245240070190001246171250003238079003";@a=unpack
+("C*",$_);$q=0;foreach(split //,$t){$d[$q].=$_;if(length($d[$q])==3) 
+{$q++};}$q=0;foreach(@a){$d[$q]?(print chr(($_+$d[$q])%0xff)):0;$q++;
+}}<DATA>;
__DATA__
just another perlhacker
[download]