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